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News and Reviews 

by Mike Dunn, Co-Editor 

Because our mailing list keeps growing, I again had to change to 
another program. The Atari Disk drives, even in double density are just 
not large enough to hold all your names. As you all know, each database 
program uses its own format on the files, with various delimiters to 
separate the fields and records. In the past, I've needed to write a 
program to do this, but lacking the time, I took a different approch this 
time. I decided to use dBase II on my CP/M ATR 8000, so I could use 
double or quad density double sided drives. Instead of using a null modem 
to port across the files, I used the excellent program from the ATR users 
group, The Capital Pro-Micro User's Group (Robert Danson, 2102 Basset, 
Alexandria, VA 22308), called ATOC. You simply put your Atari disk in 
drive B, your CP/M disk in drive A, and copy disk to disk. Worked great. 
This program and many others are available from them. If you have an 
ATR 8000 with CP/M be sure to write them. Once the files were across, 
I converted them using WordStar copy and replace commands — not 
as easy as it sounds since it took many hours to figure out how to do 
it, but only a few minutes to do it. Now all is well - if any of you have 
the same problem, write me, and I'll tell you how to do it. 

Speaking of writing, we have many User Group Newsletters giving 
various ways to add memory to your 800, 800XL and 130XE computers. 
If there is enough interest, we could put together a special newsletter 
with a disk of software to make it run, for say $10. It will take a lot of 
work to do it, so please let me know if you want it. 

Last weekend, I spent a few hours with my good friend Pat 
Warnshuis from the Portland Atari Group. Pat was the original editor of 
the Portland Atari Newsletter, and we have known each other since the 
"early days" of Atari. Anyway, he and a friend are developing an excellent 
program, a Wonder Editor for the ST, for programing in C and assembly, 
which has many marvelous features, including an outline ability and a 
48 line display (on Monochrome). Before marketing it, he wants you to 
try it out, and let him know what you think. In addition, he wrote a 
memory test program which is especially useful if you have the new ROM 
or add memory to your ST. The disk can be obtained from Jim Bumpas 
for $10; ask for "Pat's" disk. 

For the 8-bit owners, Frank Pazel, the editor of the Jersey Atari 
Compter Group, has sent us the latest disk from his #1 programmers 
son. This double sided disk has useful Print shop utilities on one side, 
and on the back utilities which allow you to convert Print Shop files to 
Visualizer or MicroPanter. These disks are not full, but have AutoRun files 
on each side. $10 for the disk. 

Remember, all the ACE 8-bit disks are $10 for 2 sides now. 

Checkbook/Budget 

Introduction: Non-profit organizations like churches nave tax exempt 
status. Accounting is mainly a matter of keeping an accurate checkbook. 
Budgets are set up however so it is necessary to break payments into 
amounts designated for certain purposes. Income is also usually broken 
down in categories. This program was written to aid in keeping track 
of income and expenses in such situations and provide printouts of 
information when necessary. If you desire this much information on your 
household finances, you could easily set up the program for your personal 
use. 

Hardware: This program should run on any Atari in the 400/800, 
XL or XE series but because of its length will require 48K. It is set up 
for use with a single disk drive. It is possible (with slight changes) to 
use a cassette drive but this is inconvenient because of the time required 
to load the program. A printer is not necessary because all information 
is available on the screen, but for normal use printed reports seem 
necessary. 

Categories: Before using this program you must choose categories 
for income and expenses. Expenses have a category number associated 
with them. It is convenient to group similar items together (10's for 
salaries, 20's for buildings, 30's for supplies etc.). Once the expense 
categories are choosen, their names must be inserted in the program 
as data lines in lines 20000 - 20099. The last two digits of the line 
number are equivalent to the category number, ('20030 DATA Off. 
Supply' means office supplies have the category number 30). The 
maximum number of letters, including blanks, in a category name is 11. 

Income is also broken up into categories representing the purpose 
for which certain amounts were given (Tithes, Missions etc.). In a 
personal account these could be different income sources: Husband's 
income, Wife's income, rebates, etc. There are no category numbers 
associated with income but the category names must be inserted 
consecutively as data lines in lines 20101 and following. The number 
of income categories is limited to seven because of a limited number 
of columns in the income summary. If you wish to use less than seven 
categories, change the variable NCAT in line 12012. 


Check Numbers: Check numbers can range from 0001 through 
9999. If you LIST the program you will find there are no line numbers 
in this range. The program creates data lines here using the associated 
check numbers. It then uses the 'LIST' command to save these lines and 
the 'ENTER' command to re-enter them. This makes the information easy 
to incorporate into other Basic programs. Deposit numbers can duplicate 
check numbers without problems. Deposit information is saved as data 
lines 10000 and greater. You will be asked to provide an associated check 
number with each deposit. This is the check number which contains the 
deposit entry in a normal check register. 

Although the program will give you the balance after any check or 
a balance summary for the entire month, you should always keep a 
separate balance by hand to double check that everything got entered 
into the program correctly. 

Reports: The program will print out any of four separate reports as 
well as a list of available categories. The reports are: Income Summary, 
Expense Summary, Catagory Totals and Balance Summary. 

The income summary lists income categories in columns with each 
deposit as a separate row. Totals of rows and columns are provided. 
Examining income on the screen is a little different. You will be given 
a list of categories and asked to select one. Only information and a total 
for that particular category will be given. 

The expenses summary is a list of each check including all pertinent 
information. If the check is to be applied to more than one category, the 
amount designated for each is given on a separate line. Output to the 
screen is similar but information is abbreviated because of space 
limitations. If you forget the numbers associated with various categories 
you can get a listing on the screen or printer. 

A summary of category totals lists each category and gives amounts 
and check numbers of expenditures applied to that category. Catagory 
totals are also given. It is a cross-reference between amounts spent and 
check numbers. The same information is available on screen but in a 
different format. You are asked for a category number. Information for 
that category only is listed on the screen. 

You can ask for the balance at any check number and be given the 
amount in the checking account before and after that check. You may 
continue with each check after that until the end of the month is reached. 
By starting with the first check of the month you can have a balance 
summary which is useful for checking against a balance done by hand. 

Running the program: If the program does not automatically start 
type 'RUN "D:CKBUDGET"' and hit RETURN. The program will ask you 
if you want to get information from disk or start from scratch with a 
clean slate. In either case, you will be asked to select a month. 
Information is kept on disk files by month having filenames 
'D:CHECKS.XXX'; where XXX stands for the first three letter of the 
month name. A new 'D:CHECKS.FEB' will overwrite an old one so 
separate years should be kept on separate disks. You can add checks, 
modify checks, delete checks and do all sorts of printing of information; 
But unless you specifically call for the operation 'Write Month' the 
information on disk will not be updated! This should be the last thing 
you do before you turn the machine off or choose a 'New Month' 
operation. A 'New Month' selection starts the program over again, first 
going through and erasing all data lines having to do with checks and 
deposits. 

Once you have selected a month, you will be asked to enter the 
beginning balance. If some information has already been entered for that 
month the beginning balance should already appear in parenthesis. In 
this case, just press 'RETURN' and the beginning balance will 
automatically be entered. This is normally the case on prompts for input. 
The value in parenthesis is the default response and is selected by 
pressing only 'RETURN'. Another convention involves choice selection 
from menus. The choices available will be indicated by letters ,(or key 
names, like RETURN), appearing in inverse video. 'RETURN' alone in 
response to a choice selection usually returns you to the main menu. 

Main Menu: The main menu should appear after the inital balance 
has been entered. The following describe the various options: 

Add Checks: You will be prompted for various check information 
including the amount. You are then to divide the check up into amounts 
in various categories. The program will ask for a category number and 
then an amount, repeating this sequence until the total check amount 
is accounted for. The default response for amount is always the 
remainder, so hitting only 'RETURN' will enter that amount and end the 
process. If you enter an amount which will make the total too high, you 
will be told and made to repeat the category breakdown from the 
beginning. If you can't remember a category number, you can enter a 
zero for the null category. It can always be fixed up later. The null category 
has no name associated with it. 
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BUMPAS REVIEWS 

ZOOMRACKS 

ZOOMRACKS (16-bit — Quickview Systems, 146 Main Street, Los 
Altos, CA 94022, $80 list, but discounted to user groups until May 30 
for as low as $40 in quantities of 13 or more) is a novel type of data 
filer program. It makes use of a system never before seen on a computer 
as far as I know. This novelty is so smoothly executed, and so easy to 
use, I believe it is destined to become a milestone in personal computer 
history. It is useful enough to become a standard equivalent to Lotus 
1-2-3 in the industry. 

I don't believe I'll continue to use spreadsheets for a data manager 
any more. This program takes a concept from the factory floor, the time¬ 
card racks where employees store their time-cards near the time-card 
punch machine. Only here, each "card” can hold up to 250 lines of data. 
On a half-meg machine, each file can contain up to 9 racks, each 
containing over 400 cards. All racks can be displayed on the screen at 
once, but you might find this too much. There is a 10th rack, but this 
rack is always the directory of the disk. The data displayed on the screen 
is compacted so that even with 3 to 5 racks on the screen, "Thursday" 
might appear as "Thr". 

When you click the mouse on an item, you can "zoom" up on it 
so it fills the screen with just one rack, or just one "Q" card in the rack 
("Q" for "quick card"). Sorts are nearly instantaneous; as you enter a 
new record in any rack, it is automatically inserted in the sort order in 
the field you have selected. To resort is a simple click and two keystrokes 
away. 

This is the first really and truly "free-form" data filer program I've 
seen. There are almost no rules to its use. Menus are available for the 
user not familiar with the commands. And the commands can be 
executed directly, without using the menus at all. When you first begin, 
you can also toggle on a "help" function which uses the bottom 4 lines 
of the screen to display information about the menu choices. There is 
also an excellent 128-page manual, and a long disk tutorial. The manual's 
table of contents is so complete, you probably won't miss the lack of 
an index. 

I'm so excited about the imaginative concept of this program I'm 
afraid I can't fully communicate it. The screen doesn't just show you a 
title page and move you to a menu where you can "create" a database. 
The program starts up with a demo which places a screen full of racks 
and cards before you. There is a macro function in the program permitting 
you to use 2 keystrokes to enter repetitive data or commands. Or, you 
can create a custom application which automatically runs when you run 
the program. 

When a rack is displayed, only the top line of data on each card 
appears. You can quickly re-assign which line is the "top" line. You can 
quickly pull up cards which relate to some data in another rack in the 
file. You can't really make a mistake more costly than a couple of 
keystrokes. Almost anything you do, you can undo with one keystroke. 
You can add, split and join fields, and change field names (labels) without 
losing any data. You can even change the name of a rack within a file. 

The program can be used as a small word processor. The editing 
and formatting functions are very complete. You can produce mailing 
labels, you can create custom forms. You can use the mail merge function 
to print and address form letters. You have the option to save files in 
ASCII format which will permit the files to be used with other programs, 
or to transfer the data to other computers. The only addition to the power 
of the program I can imagine is to add some calculation function. Let's 
see now, how about a phone dialer to go with my list of addresses and 
phone numbers.... 

I highly recommend this program to anyone who needs to keep track 
of things — items, addresses, appointments, collections, things to do. 
You will think about ordering things in a totally different way than you've 
ever done before. You can be an anarchist, with very little external 
discipline to the way in which you handle your data and this program 
will bring order to your chaos. And the order will be created almost 
effortlessly. 

Until May 30, 1986, ZOOMRACKS can be purchased by user 
groups at a discount for as low as $40 each when the order includes 
13 or more copies. Single copies can be bought for $59 until March 31, 
or $69 until April 30. 
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ANTIETAM 

ANTIETAM (8-bit — SSI, $50) is a dream come true for me. When 
I was a board war-gamer, my favorite system was SPI's "Terrible Swift 
Sword". This game system evolved through a number of successful and 
enjoyable cardboard games. Well, SSI has created a regimental-level Civil 
War simulation which contains all the elements which made those board 
games a success, and has added features not possible on cardboard. 

Play options include the computer playing either (or both) sides. A 
two-player option is available, too. You can select one of 5 levels of 
difficulty, and 3 levels of play (Advanced level adds more features which 
complicate command control, and use of hidden units). This program 
also offers the option of using two disk drives. This is great! It minimizes 
disk swapping. 

The cursor selects individual regiments and batteries. When 
selected, each unit has two "pages" of data. A "page" here is a 4-line 
window at the bottom of the screen. Current numbers of effective men 
in the regiment are listed along with morale and other status indicators 
such as facing, formation (column or line, mounted/dismounted, 
limbered/unlimbered), fortification level, ammunition, etc. The screen 
display shows unit facing in one of 4 positions. Actual facing can be in 
any one of 8 directions. So you have to read the status pages to actually 
see if a unit is facing "north" or "south". 

One really great feature of this game (and which bedevils cardboard 
play) is maintaining command control. An option permits one to show 
all the regiments in one division with screen high-lighting. The regiment 
containing the commanding officer flashes! So it's an easy matter to 
determine if one is in command control. And you can see if your 
commander is too close to the front lines (or maybe hanging back too 
far in the rear — coffee, anyone?). 

Infantry in line formation and dismounted cavalry are displayed as 
rectangles. Mounted cavalry and infantry in column are pairs of squares. 
Limbered artillery is a rectangle with a dot in the center. Unlimbered is 
a rectangular formation of 6 lines. Terrain includes hills, towns and roads, 
as well as woods, cornfields, rivers and streams. I was a little disoriented 
by the map at first, since the designers chose to put "South" at the top 
of the map. There is complete documentation, including Orders of Battle 
and a historical discussion. Also included is a laminated 4-color 8.5x11" 
conference map. 

The game scale makes each turn an hour in the actual battle. You 
will probably be able to play one turn an hour. Think of it as a "real-time" 
game, at least in terms of player fatigue. Combat is executed sequentially, 
unit-by-unit, with the defender in each phase having the advantage of 
first fire. Normal execution times for each operation is 2 or 3 seconds. 
You can set a delay counter at any point from 1 to 9. I find 1 is too short 
to read the screen display of the results of actions. 2 seems about right 
after I became accustomed to the display. The default of 3 is best for 
new players, or for a more time to read the results. 

This leads me to a serious problem I've experienced with the game 
in the solitaire mode (playing either the USA or CSA). I've not yet been 
able to play the game past Noon (game play begins with the 6.00 am 
turn). At this point, the program forgets it's using two disk drives and 
asks me to insert the other side of the disk. But more seriously, the delay 
in game operations increases by a factor of 10. Operations which 
formerly required only 2 or 3 seconds now require 20 to 30 seconds. 
This makes each turn require 2-3 hours to play. Obviously I only played 
one turn each game at this speed. I had to stop and start over. Even with 
normal play as intended, there are times you will have several minutes 
to do something away from the computer. Solitaire play requires letting 
the computer figure out it's moves for 4-6 minutes, even with the screen 
display disabled. 

Ordinarily I wouldn't review a game with this problem, as it doesn't 
seem ready for market in this condition. But SSI is acting so promptly 
with their concern over this problem. I'm satisfied they will correct the 
problem shortly (maybe by the time you read this). Perhaps it's my 
computer, since they did not discover this problem before release. If you 
have a similar problem, let SSI know about it and I am sure they will 
correct it. 

— Jim Bumpas 

ST ROMs 

The ST ROMs arrived today (Feb. 13). I put mine in in less than a 
half an hour. How about 341k text buffer space with ST Writer? A little 
insert for your 520 ST user manual is included which covers some 
questions about LOGO. An instruction sheet explains how to install the 
ROMs. A disk is also included which contains system files for boot-up, 
along with the latest versions of NEO.PRG, BASIC.PRG, BASIC.RSC, 
SLIDENEO.PRG, LOGO.PRG, and LOGO.RSC. The LOGO files seem to be 
the only ones with a different byte count than the files we already have. 

ST Programmers 

DataSoft (Marketing Project Manager, 19808 Nordhoff PI., 
Chatsworth, CA 91311 818-886-5922) is advertizing for programmers 
to submit "original graphic adventure games, and action arcade-style 
games full of color and animation. We also want practical home- 
productivity programs with mass-market appeal." 



Once all necessary information is supplied you will be shown the 
information again in the form of a check and asked to confirm it. If you 
say 'yes' the information is correct, a data line will be entered containing 
that check's data. Any previous check of the same number will be 
replaced. Remember, the information has not been saved yet, only 
entered into the program. Once the data line is written you will be 
returned to the main menu and will have to select this option again to 
add another check. 

Revise Checks: Use this option to make corrections or to delete 
checks. Enter the number of the check you want. Check information will 
be shown and you will be asked if it is correct. If it is, answer 'Y' for 
yes or just 'RETURN'. Answer 'N' (no) to make corrections. Answer 'E' 
to erase the check. 

Deposits: Choose 'A' to add deposits made to the checking account. 
You will be asked for the total amount and then asked to specify how 
much to apply to each deposit category. The amount toward each 
category will be subtracted from the remaining amount until all is 
accounted for. 'R' will allow you to make corrections or Erase deposits 
previously entered and 'RETURN' will take you back to the main menu. 

Income Summary: Choose 'I' to get a listing of the deposits broken 
down into amounts in various deposit categories. The listing can be to 
either the screen or printer. Screen listing is by individual category or 
a listing of the totals of all deposits. Before you select the printer, you 
may want to advance the paper to the top of the next page. If you do 
this you should inform the program by pressing 'ESC'. You can then press 
'P' for printer. 

Expenses Summary: 'E' will give a summary of all checks written 
for the month. You are again given the choice of screen, printer or 'ESC' 
to set the top of form. 

New Month: Use this option if you wish to clear out all information 
entered and start again. I have on occasion found some data unerased 
by the program. It will probably be wise to do income and expense 
summaries to make sure everything was erased. Use the option again 
if anything remains. 

Write Month: Be sure to use this option to save all information 
entered. Old information for the month will be overwritten. 

Catagories: Four selections of category listings are available using 
the 'C' key. Individual totals of either deposit or expense categories is 
available on screen by choosing (C)heck category or (D)eposit category. 
If you want a printout of all expenses by category choose the (P)rint 
Category Totals option. A list of the categories themselves can be printed 
or sent to screen with (L)ist of categories option. 

Balance Thru: You can use this option to find the balance before 
and after any check which has been entered. Values for the choosen 
check will be listed and you will be given a chance to continue (SPACE) 
or 'RETURN' to the main menu. The listing to screen can be toggled on 
and off with the SPACE key. 

Technical: The program makes use of the Atari's ability to read 
information from it's own screen. This allows it to modify itself by 
entering it's own data lines. Data is entered in a data line corresponding 
to the check number. The data itself is a string with information as 
follows: 

1-2, day; 3-22, payee; 23-30, amount; 31-48, memo; 49, number 
of subamounts; 50-51, 1st category; 52-59, 1st category amount; 
60-119, remaining category numbers and amounts. 

Deposit data is stored as data lines 10000 and following in steps 
of 10. The data is again a string as follows: 

1-2, day; 3-6, deposit number; 7-14, amount; 15-18, associated 
check #; 19-26, 1st category amount; 27-74, remaining category 
amounts. 

Another technique used frequently is the ability to restore to a 
particular data line. In certain cases it is necessary to remember what 
data line was being operated on. This information is contained in 
locations 183 and 184; the line number given by the quantity 
PEEK(183) + 256*PEEK(184). Location 182 holds the index of data in a 
data line and is used to dig out the month in line 12270. Data is saved 
by 'LIST'ing the appropriate lines to disk. Data line 0 holds two numbers, 
the month # and the beginning balance for the month. 

The maximum number of positions reserved for dollar amounts is 
eight. This limits any amount to a maximum of $99,999.99. 

— Stan Ockers 
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STuff 

The really hot ST rumors this month revolve around the "Magic Box." 
An MS-DOS emulator for under $200! It may contain up to 8 slots for 
various boards. One board will have an 8088 with 512k RAM. The Magic 
Box plugs into the DMA port. The rumors claim the screen might be 
slower than on an MS-DOS machine, but the higher processor speed 
should make up for this, causing the programs to actually run faster than 
on an original MS-DOS machine. I'll believe it when I see it. 

The CP/M emulator is apparently ready. It should sell for about $30. 
It's been appearing on various BBS around the country. But Sysops are 
removing it after discovering it's proprietary. Unfortunately, many of them 
are out there now. It's not enough to run CP/M though, is it? Don't you 
also need to buy the CP/M operating system? I've heard the emulator 
program requests you to insert the CP/M disk. Do you really want to use 
WordStar on your ST? Here's your chance. 

A new 14" monitor is in the works, with both composite and RGB 
output. Use it for both your ST and your 130 XE. 

FLASH : The March issue of BYTE magazine features the 1040 ST 
with front cover picture and articles. Check this one out as evidence of 
the resurgence of Atari on the micro market. 

Atari Corp. has been down-playing ST sales figures, making it 
difficult for us to determine how many are sold. But there are hints. A 
DataQuest report cited in a recent issue of InfoWorld says 100,000 STs 
were sold in the first 90 days on the market. If this 90 days covers 
August, September and October, then sales in 1985 should be well over 
200,000. In fact, since the ST was sold outside the States for several 
weeks before it appeared here, that "first 90 days" could well have begun 
earlier than August, 1985. 

In the first week of October, 1985 official word from Atari was that 
they were selling STs "at the rate" of 50,000 per month. So, November 
and December adds another 100,000 (at least) to the DataQuest figure. 
In fact, STs sales accelerated quite dramatically over the Christmas 
buying season, so probably many more than 100,000 were sold in those 
two months. The January, 1986 issue of "Feedback" (Adelaide, Australia 
ACE) reports 40,000 STs were sold in Germany alone during October, 
November and December, 1985. So that figure confirms these other 
estimates. 

VIP UPDATE 

VIP Professional (16-bit - VIP Technologies, 132 Aero Camino, 
Santa Barbara, CA 93117, $122 discounted) has now reached dealers 
with the third version since its release. The latest one arrived just as we 
went to press last issue. Some of the problems we had with the program 
are now corrected. The formula cells now calculate beyond the 80th 
character in the cell. Our calculations are no longer truncated. And the 
data buffer has been expanded to more than 40k. I am informed by a 
friend who has ROMs installed, that the data buffer on a ROM-based 
520 ST is less than 80k! 

I'm a little alarmed by this information. It make me wonder where 
our half-megabyte of memory went. If the OS is entirely (or mostly) on 
ROM, and the spreadsheet program only takes 277k on the disk, where 
is the other 200k RAM? The "Read Me First" pamphlet which comes 
in the VIP package suggests we'll have all but a small portion of the 512k 
available for applications when the ROMs are in. I want to know what 
happened? Here's how it's been explained to me. Start with 512k. VIP 
takes 277k program code and sets up two 32k graphics buffers for a 
total of 64k. This is why you can flip back and forth from the template 
to the graph screen so quickly. This leaves about 171k. The OS takes 
some space (more, depending upon how many desktop accessories you 
have), reducing you to between 80k and 108k for the spreadsheet. 

I've discovered a couple of other problems with the VIP program 
since last issue. The Graph function from within the program works very 
smoothly and quickly in most of its options. But I can't get it to "Use" 
a previously created graph file which I saved to disk. I get a file not found 
error. 

My data disk also contains 3 spreadsheet templates which I can 
no longer load in. When I try, the program says there's something wrong 
with my drive. I get the same message on either drive. When the error 
occurs I can't get out of it. Pressing Esc or Return gives me a system 
error 3, and then a system error 2. The only function which will work 
is the Help function. I have to reboot to get out of it. These data templates 
were created with a previous version of VIP. But other early templates 
on the same disk are loaded in with no problem. I'm perplexed. 

WARNING 

We received a warning from VIP today. They say their contract with 
Shanner, also doing business as "Gumball Express," is no longer legally 
permitted to sell the VIP Professional spreadsheet. If you buy from them, 
VIP says you'll be getting an old version, and VIP will not honor any 
warranty. To get your money back, you're asked to contact the California 
Attorney General's office in Sacramento, California. 
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45 FOR T=1 TO 4:POSITION H(T),3:? HS(T 
,T):NEXT T:POKE 764,255:P0KE 559,34 

46 IF FL THEN RETURN 

58 TRAP 58:POKE 53774,64:P0KE 16,64:IF 
PEEK (764) 0255 THEN 68 
54 IF PEEK(53279)=5 THEN POKE 53760,18 
8:G0SUB 968:G0SUB 580 

56 IF PEEK(53279) =6 THEN POKE 53768,58 
:GOSUB 968:G0SUB 1288 

57 IF PEEK(53279)=3 THEN POKE 53768,15 
9:G0SUB 968:GOSUB 1988 

58 GOTO 50 
60 GET #2,K 

65 IF K=29 THEN GOSUB 208:Y=Y+i:GOSUB 
180 

70 IF K=28 THEN GOSUB 288:Y=Y-i:GOSUB 
180 

75 IF K=38 THEN GOSUB 208:X=X~1:GOSUB 
158 

80 IF K-31 THEN GOSUB 288:X=X+1:GOSUB 
158 

85 IF (K>47 AND K<58) OR K=45 OR K=43 
THEN GOSUB 988 

98 IF (K>64 AND K<123) OR K=34 THEN 60 
SUB 228 

92 IF K=58 THEN GOSUB 888 
95 POKE 764,255:POKE 782,64:GOTO 58 
108 IF Y>40 THEN Y=48:F0R T=i TO 18:P0 
KE 53761,168:NEXT T:POKE 53761,168:605 
UB 135:RETURN 

185 IF Y<1 THEN Y=1:F0R T=i TO 18:POKE 


SMARTSHEET BY 
KEN SHIU 

53761,168:NEXT TlPOKE 53761,168:GOSUB 
135:RETURN 

118 CELLS=CHRS(ASC(HS(X,X))-128):CELL$ 
(LEN(CELLS)+1)=5TRS(Y):POSITION 36,1:? 
+++";CELLS:Yi=Y 

115 CP=(X-i)*8+(120*(Y-imi:IF Yl>28 
AND K-29 THEN Yi=28 

116 IF Y1>=YMIN AND Y<=YMAX THEN Yl=28 
-(28-(Y - (YMIN-1))) 

117 IF Y<YMIN THEN Yi=l 

128 IF Y>YMAX THEN YMAX=YMAX+1:YMIN=YM 
IN+i;POSITION 8,4:? ‘‘Q":POSITION 8,23: 
? "■"; VS (Y*2-i, Y*2); OUTS (CP, CP+31); 
125 IF Y<YMIN THEN YMIN=YMIN-1:YMAX=YM 
AX-i:POSITION 8,4:? POSITION 8,4:? 

; V$ (Y*2-l, Y*2) ; OUTS (CP, CP+31) ; 

135 POSITION H(XI)-3,Yi+3:FOR T=CP TO 
CP+7:C$(T-CP+1,T-CP+1)=CHRS(ASC(OUT$(T 
,T))+128):NEXT T 

148 ? CS;{POSITION 8,1:T=15*(Y-1)+X:AS 
=SS(T,T):IF A$="I" THEN ? "Label:";INS 
(CP,CP+7) 

144 IF AS="2" THEN ? "Value:";INS(CP,C 
P+7) 

145 IF AS=" " THEN ? " 

H 

146 IF AS="3" THEN ? "For*ula:";INS(CP 
,CP+7) 

148 RETURN 

150 IF X>15 THEN K=I5:F0R T=i TO 18:P0 
KE 53761,168:NEXT T:POKE 53761,160:605 
UB 135:RETURN 

155 IF X<1 THEN X=1:F0R T=I TO 18:P0KE 
53761,168:NEXT T:POKE 53761,168:GOSUB 
135{RETURN 

168 CELLS=CHRS(ASC(H$(X,X))>128):CELLS 
(LEN(CELLS)+i)=STRS(Y) .'POSITION 36,1:? 

+++";CELLS:Xl=x 
165 CP=(X-i)*8+(128*(Y-i))+l 
167 IF XD-XMIN AND Xi<=XMAX THEN X1=X 
-(XMIN-1):GOTO 198 

178 IF XKXMIN THEN Xi=l;XMIN=XMIN-i:X 
MAX-XMAX-1 

171 IF X1)XMAX THEN Xl=4:XMAX=XMAX+i:X 
MIN-XMIN+1 

172 G=8:F0R T=XHAX-3 TO XMAX;G=G+i:POS 
ITION H(G),3:? HS(T,T):NEXT T:G=8 

173 6=8:TS=(XMIN-i)*8+(120*(YMIN-i))+1 
.'FOR T=TS TO TS+2288 STEP 128:6=6+1 

174 POSITION 4,G+3:? 0UTS(T,T+31);:NEX 
T T 

198 POSITION H(X1)-3,Y1+3:FQR T=CP TO 
CP+7:C$ (T-CP+1,T-CP+1)=CHRS(ASC(OUTS(T 
,T))+128){NEXT T 

192 ? CS;:POSITION 8,i:T=15*(Y-l)+X:AS 
=SS(T,T):IF AS="1" THEN ? "Label:»;INS 
(CP,CP+7) 


194 IF aS=" 2“ THEN ? "Value:»;INSCf 
P+7) ^ 

196 IF AS=" » THEN ? " 

If 

197 IF AS="3" THEN ? "For*ula;";INS(CP 
,CP+7) 

198 RETURN 

288 POSITION H(Xi)-3,Yi+3:CP=(X-i)#8+( 
128*(Y-l))+1:? OUTS(CP,CP+7);;RETURN 
285 POSITION 8,1:? » 

":RETURN 

218 POSITION 8,2:? " 

"{RETURN 

228 POSITION 8,1:? "Label":SS(15*(Y-i) 
+X,15*(Y-1)+X)="i":T=8:CP=(X-i)*8+(128 
*(Y-i))+i 

222 CS= <( BHHi":0UTS(CP,CP+7)=CLS:IN 
S(CP,CP+7)=CLS 

223 IF K=34 THEN T=~1:G0T0 235 

225 POSITION 8+1,2:? CHRS(K):OUTS(CP+T 
,CP+T)=CHRS(K):CS(T+l,T+l)=CHRS(K+128) 

226 INS(CP+T,CP+T)=CHRS(K) 

238 POSITION H(Xi)-3,Yi+3:? CS; 

235 GET #2,K:IF K=155 THEN GOSUB 218:R 
ETURN 

236 IF K>27 AND K<32 THEN GOSUB 218:P0 
P :GOTO 65 

238 T=T+i:IF T>7 AND K<>126 THEN 295 
248 IF K=126 AND T=8 THEN T=-I:CS="B1 
■W: OUTS (CP, CP+7) =" "{INS'”' 

,CP+7)=" ":GOSUB 210:GOTO 2* 

241 IF K=126 THEN T=T-1:IF T<8 THEN T= 
9 

242 IF K=126 THEN OUTS(CP+T,CP+T)=" ": 
CS (T+l,T+l)="I»:INS(CP+T,CP+T)=” ":POS 
ITION 8+T,2:? " ":T=T-1:GOTO 238 

245 IF (K<32 OR K>122) THEN 235 
258 GOTO 225 

268 POSITION 8,1:? "Global :{2or» 0nt So 
liar"; 

265 GET H2,K 

278 IF K=27 THEN GOSUB 285:RETURN 
275 IF K=78 THEN GL=8:GOSUB 205‘.RETURN 

288 IF K=73 THEN GL=i:GOSUB 285:RETURN 

282 IF K=68 THEN GL=2:GOSUB 285:RETURN 

285 ? "(if*: GOTO 265 

298 FOR T=i TO 288:NEXT T:RETURN 

295 GOSUB 218:POP :G=K;K=31:GOSUB 288: 

X=X+l:GOSUB 158:K=G:P0P '.GOTO 65 

388 ? "Sisk gassette"; 

385 GET 82, K 

318 IF K=27 THEN GOSUB 285:POP :GOTO 5 
8 

315 IF K=67 THEN FlS="C;":GOSUB 205:RE 
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SMART CON’T 


«RN 

J IF K<>68 THEN ? "0";:GOTO 385 

321 POSITION 13,1:? "Input Filename" 

322 GET H2,K:IF K=32 THEN 348 

325 IF K<65 OR K>98 THEN ? "0";:GOTO 3 
22 

327 T=1:60T0 335 

338 GET H2,K:IF K=126 THEN T=i‘.A$=CL$: 
POSITION 0,2:? A$:GOTO 322 

331 IF K=155 THEN 330 

332 IF (K<48 OR K>98) OR (K>58 AND K<6 
5) THEN ? "Q";SGOTO 338 

335 POSITION 8+(T-l),2:? CHR$CK):A$CT, 
T)=CHR$(K):T=T+1:IF T>8 THEN T=8 
337 GOTO 338 

330 FOR T=i TO LEN(A$):IF A$(T,T)=" « 
THEN G=LEN(A$):A$ (T)="":T=6 

339 NEXT T:FI$="D:":A$(LEN{A$)+1)=".55 
":FI$(LEN(FI$)+1)=A$:GOSUB 285:G0SU6 2 
18‘.CLOSE 111:RETURN 

348 TRAP 2188:OPEN Hi,6,8,"D:*.55":TRA 
P 398 

344 INPUT Hi;DI$:POKE 54206,192:IF LEN 
(81$)<17 THEN 398 

345 POSITION 0,2:? "FILE:";81$(3,18) 

346 GET H2,K:IF K=155 THEN A$=DI$(3,18 
) :GOTO 338 

347 IF K=27 THEN GOSUB 218:POP :RETURN 

358 IF K=32 THEN 344 
355 GOTO 346 

) POSITION 8,2:? "0NO MORE SMARTSHEE 
^ FILES":CLOSE HI:FOR T=1 TO 388:NEXT 
T 

395 GOSUB 218:GOSUB 285:TRAP 48888:POP 
:RETURN 

488 POSITION 8,1:? "Load:";:GOSUB 388 
485 TRAP 2188:OPEN Ml,4,128,FI$:TRAP 4 
28’.POSITION 9,1:? "Loading.. .";A$:T=7 
418 A=A8R(IN$):L=4888:GOSUB 578:0UT$=I 

N$ 

415 A=A8R(S$):L=688: GOSUB 578: CLOSE ItG 
^16:POKE 54286,192 

428 POKE 559,8:GOSUB 285‘.TRAP 48888:GO 
SUB 2828:FL=1:GOSUB 38:FL=8:P0KE 559,8 

425 G=8:TS=(XMIN-1)*8+ C128*(YMIN-i))+1 
:FOR T=TS TO TS+2288 STEP 128:6=6+1 
438 POSITION 4,G+3:? 0UT$(T,T+31);:NEX 
T T 

435 POSITION 4,4:F0R T=T5 TO TS+7:C$(T 
-T5+1,T-TS+1)=CHR$(ASC(OUT$ CT,T))+128) 
:NEXT T:? C$;:POKE 559,34:RETURN 
458 POSITION 8,1:? "Save:";'.GOSUB 388 
452 TRAP 2188:OPEN m,8,128,FI$:P0SITI 
ON 9,1:? "Writing...";A$:T=11 
455 A=ADR(IN$):L=4888:GOSUB 578 


458 A=ADR(S$):L=688:GOSUB 578: CLOSE IIG 

716:POKE 54286,192 

468 GOSUB 285:TRAP 48888:RETURN 

588 POSITION 8,1:? "Menu: G L 5 E P H 

? »; 

585 GET 112,K 

518 IF K=71 THEN 268 

512 IF K=76 THEN 488 

514 IF K=83 THEN 458 

516 IF K=69 THEN 558 

518 IF K=88 THEN 688 

528 IF K=27 THEN GOSUB 285:RETURN 

522 IF K=72 THEN 588 

524 IF K=63 OR K=47 THEN 1588 

545 ? "0":GOTO 585 

558 POSITION 8,1:? "Erase: Sure? (Y/N) 

>i • 
t 

555 GET H2,K 

568 IF K=89 THEN POKE 559,8:GOSUB 2888 

‘.POP :GOTO 38 

565 GOSUB 285:RETURN 

578 6=16:CB=832+G:POKE CB+2,T:HI=INT(A 

7256):L0=A-HI«256:POKE CB+4,L0:P0KE CB 

+5, HI 

572 HI=INT(L/256):L0=L-256*HI:P0KE CB+ 
8,LO: POKE CB+9,HI:I=U5R(ADR("hM»5iLV0") 

iG) 

575 RETURN 
588 GOTO 428 

688 POSITION 8,1:? "Print: Lower Corne 
r?":POSITION 8,2:T=i:A$="" 

685 GET II2,K:IF K=27 THEN GOSUB 285:RE 
TURN 

687 IF K<65 OR K>79 THEN ? "0";:GOTO 6 
85 

618 ? CHR$ (K);:A$(T,T)=CHR$(K):T=T+1 
615 GET II2,K:IF K<48 OR K>57 AND K<>12 
6 AND KOl55 THEN ? *9*;:GOTO 615 
628 IF T=2 AND K=48 THEN ? ‘ft*;:GOTO 6 
15 

625 IF K=126 THEN POSITION 8,2:? " " 

:GOTO 688 

638 IF K=155 AND T>1 THEN 645 
635 IF T=4 THEN ? "0";:GOTO 615 
648 GOTO 618 

645 IF VAL(A$(2))>48 THEN ? "Q":GOSUB 
218:GOTO 688 

658 DI$=A$:GOSUB 218'.POSITION 8,1:? "P 
rinter Codes? (Y/N)"; 

655 GET 112,K:IF K=78 THEN 785 
668 IF K<)89 THEN ? "0»;:GOTO 658 
662 TRAP 662:GOSUB 218:POSITION 8,1:? 
"Enter Line Number “:POSITION 8,2: 
INPUT L 

665 IF L<1 OR L>48 THEN ? "0"‘.GOTO 662 

667 A$=PR$(L*3-2,L*3):POSITION 14,1:? 
"Printer Codes" 


678 POSITION 8,2:? "Line ";L;" (t";A$( 
1,1);"t";A$(2,2);"fc";A$(3);") : 444"; 

:T=1 

675 GET II2,K:IF K=155 THEN 698 

688 IF K=126 THEN 678 

682 IF T>3 THEN ? "0":GOTO 675 

685 ? CHR$(K);:A$(T,T)=CHR$(K):T=T 

+1:G0T0 675 

698 PR$(L*3-2,L*3)=A$!GOSUB 218:P0SITI 
ON 14,1:? "More Codes?(Y/N)"; 

692 GET H2,K:IF K=89 THEN 662 
695 IF K<>78 THEN ? "Q»;:GOTO 692 
788 TRAP 48888 

785 G=VAL(DI$(2)):A$=DI$(1,1):FOR T=1 
TO 15:IF ASC(H$(T,T))-128=ASC(A$) THEN 
L=T*8:T=15 

718 NEXT T:GOSUB 218:GOSUB 285 

728 TRAP 2188:OPEN m,8,8,»P:»:P0SITI0 

N 8,1:? "Press RETURN to print" 

725 GET II2,K:IF K<>155 THEN GOSUB 218: 
GOSUB 285:RETURN 

738 L1=1:F0R T=1 TO G:A$=PR$(T*3-2,T*3 
) 

735 FOR Z=1 TO 3:IF A$(Z,Z)=" " THEN N 
EXT Z:GOTO 748 

736 ? HI;A$(Z,Z);:NEXT Z 

748 ? HI;OUT$(LI,L):L=L+128:L1=L1+128: 
NEXT T:CLOSE HI 

758 GOSUB 285:GOSUB 218.'POKE 54286,192 
‘.RETURN 

888 5$(15*(Y-l)+X,15*(Y-l)+X)="3":T=8: 
CP=(X-l)*8+(128*(Y”1))+1:POSITION 8,1: 
? "Sum:( - )» 

885 POSITION 8,2:? "From Cell: 144"; 

:INPUT A$ 

818 IF LEN(A$)>3 OR LEN(A$)<2 THEN ? » 
S 11 ; :GOTO 885 

812 IF ASC(A$(1,1))<65 OR ASC(A$(1,1)) 

>79 THEN ? "t0";:GOTO 885 

814 IF VAL(A$(2))<1 OR VAL(A$(2))>48 T 

HEN ? ‘ft 1 ;:GOTO 885 

818 POSITION 13,1:? A$ 

828 POSITION 8,2:? "To Cell : 444"; 

:INPUT DI$ 

822 IF LEN(DI$)>3 OR LEN(DI$)<2 THEN ? 
"0";:GOTO 828 

824 IF ASC(DI$(1,1))<65 OR ASC(DI$(1,1 
))>79 THEN ? "0";:GOTO 828 

826 IF VAL(DI$(2))<1 OR VAL(DI$(2))>48 
THEN ? 'ft 1 ;:GOTO 828 

827 IF A$(l,l)ODI$(l,l) AND A$(2)<>DI 
$(2) THEN POSITION 8,2:? »0Ceils must 
be linear!":GOSUB 298:G0SUB 218;GOTO 8 
88 

828 POSITION 17,1:? DI$ 

838 FI$=":":A$(LEN(A$)+1)=»:»:A$(LEN(A 
$)+1)=DI$:FI$(LEN(FI$)+1)=A$ 
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835 IF LEM(FI$) <8 THEN FI$ CLEIUFI$)+1) 

-II II 

848 OUTS(CP,CP+7)=FIS:INS(CP,CP+7)=FIS 

858 GOSUB 218:GOSUB 285:RETURN 
988 5$ (I5*(Y-1) +X, 15*(Y-i) +X) ="2" : T=8: 
CP=(X-l)*8+(i28*(Y-i))+1:POSITION 8,1: 
? "Value:";INS(CP,CP+7) :CS="HBIB" 
982 6=8:GOSUB 218:INS(CP,CP+7)=CLS:QUT 
S(CP,CP+73=CLS:IF K=126 THEN T=-l:GOTG 
918 

985 POSITION 8+T,2:? CHRS(K);CS(T+I,T+ 
1)=CHRS(K+128);INS(CP+T,CP+T)=CHRS (K): 
OUTS(CP+T,CP+T)=CHRS(K) 

918 POSITION H(Xi)-3,Yl+3:? CS; 

928 GET 82,K:T=T+i;IF K=I55 OR (K>27 A 

NO K<32) THEN G0SU8 218:GOTO 948 

922 IF T>7 THEN ? "S^lGOTO 928 

926 IF K=126 THEN 988 

928 IF (K)47 AND K<58) THEN 985 

938 IF K=46 AND G=I THEN 935 

932 IF K=46 THEN G=l:GOTO 985 

935 ? "S";: GOTO 928 

948 IF K=155 AND NOT T THEN RETURN 

941 IF NOT T THEN POP :GOTO 65 

942 TRAP 955:A=VAL(INS(CP,CP+7)):IF GL 
-8 THEN AS=5TRS(A):G0T0 948 

943 IF GL=2 THEN 945 

944 A=INT(A+8.5):AS=5TRS(A):L=8~LEN(AS 
):G0TO 948 

945 IF A-INT(A) THEN AS=5TRS(A):AS(LEN 
(AS)+1)=",88”:GOTO 948 

946 IF INT(A*18)=A*18 THEN AS=STRS(A): 
AS(LEN(AS)+13=»8":GOTO 948 

947 ArlNT(188*A+8.5)/188:ASrSTRS(A) 

948 L=8~LEN(AS)I OUTS(CP,CP+L)=CLS;OUTS 
(CP+L,CP+7)rAS:INS(CP,CP+7)rOUTS(CP,CP 
+7):TRAP 40808 

958 IF K=155 THEN RETURN 

952 POP :GOTO 65 

955 ? :K=126:G0TO 988 

968 FOR Lrl TO 18:POKE 53761,175:NEXT 

LlPOKE 53761,168:POKE 53760,288:RETURN 

1008 TrO:CPr(X-l)*8+(120*<Y-I))+1:POSI 
TION 8,1:? "For*uIa:";INS(CP,CP+73:G=8 
:0=G:Z=1 

1884 POSITION 8,2:? "1st No.:Sell or Q 
UMber";:GET #2,K:IF Kr27 THEN 605UB 21 
0:GOSUB 285:RETURN 

1885 INS(CP,CP+7)rCLS:IF Kr67 THEN Gri 
:GOSUB 1828:GOTO 1838 

1886 IF K<>78 THEN ? "2";:GOTO 1884 
1087 GOSUB 1088:LrA:GOTO 1838 

1008 TRAP 1808:GOSUB 210:POSITION 8,2: 
? "Enter No.:";:INPUT AS:IF LEN(AS)>4 
THEN ? "tS"; .'GOTO 1888 


SMART CON’T 

1889 POSITION 16+T,1:? AS:K=LEN(AS)-i: 
A=UAL(AS):IF G OR Z THEN INS(CP+T,CP+T 
+K)rAS:TrT+K+l:RETURN 
1818 IF Orl THEN ArA+L 

1811 IF Qr2 THEN ArL-A 

1812 IF 0=3 THEN A=A*L 

1813 IF 0=4 THEN A=L/A 

1814 IF 0=5 THEN A=INT((L A A)+8.5) 

1815 INS(CP,CP+7)=CLS:INS(CP,CP+7)=STR 
S(A):K=155:GOSUB 942:G0SUB 218:SS(15*( 
Y-l)+X,15*(Y-l)+X)="2":RETURN 

1828 GOSUB 218-.POSITION 8,2:? "Enter C 
ell:";:INPUT AS:IF LEN(AS)<2 OR LEN(AS 
)>3 THEN 1825 

1821 IF ASC(AS(1,1))<65 OR ASC(AS(1,1) 
)>80 THEN 1825 

1822 IF UAL(AS(2)Xi OR VAL(AS(2))>48 
THEN 1825 

1824 GOTO 1826 

1825 ? "tE u ;:60T0 1820 

1826 K=LEN(AS)-1:INS(CP+T,CP+T+K)=AS:P 
OSITION 16+T,1;? AS:T=T+K+1:RETURN 
1838 SS(15*(Y-1)+X,15*(Y-i)+X)="3":60S 
UB 210:POSITION 8,2:? "Operation^ B » 

fi fi"; 

1831 GET 112,K:IF K=43 THEN 0=i:AS="+": 
GOTO 1848 

1832 IF K=45 THEN 0=2:AS="-":GOTO 1848 

1833 IF K=42 THEN 0=3:AS="*":GOTO 1848 

1834 IF K=47 THEN 0=4:AS="/":GOTO 1848 

1835 IF K=94 THEN 0=5:AS=" A ";GOTO 1848 

1836 ? "{J^-.GOTO 1831 

1848 Z=8:INS(CP+T,CP+T)=AS:POSITION 16 
+T,1;? AS:T=T+1;POSITION 8,2:? "2nd No 
. :9ell or C3uwber"; 

1842 GET 82,K:IF K=67 THEN GOSUB 1828: 
GOTO 1058 

1844 IF K=78 THEN GOSUB 1888:GOTO 1858 

1845 ? "2";:GOTO 1842 

1858 GOSUB 218:OUTS(CP,CP+7)=INS(CP,CP 
+7):RETURN 

1288 POSITION 8,1:? " calculating... 

ii. 

§ 

1282 FOR T=1 TO 688:IF 5S(T,T)="3" THE 

N GOSUB 1210 

1285 NEXT T:GOTO 428 

1218 CP=(T-i)*8+i:AS=CLS:IF INS(CP,CP) 

=":" THEN 1488 

1212 FOR A=CP TO CP+3:L=ASC(INS(A,A)); 
IF L=42 OR L=43 OR L=45 OR L=47 OR L=9 
4 THEN Z=A-CP+1:A=CP+3:0=L:GOTO 1216 
1214 AS(A-CP+i,A-CP+i)=CHRS(L):NEXT A 


1216 TRAP 48888:IF ASC(A$(i,i))>64 r 
ASC(AS(1,1)}<88 THEN 1228 
1218 A=UAL(AS):GOTO 1238 
1228 TRAP 1225:F=A5C (AS Cl,1))-64;G=UAL 
(AS (2)):H=(F-i)*8+(128*(G-1))+1:A=UAL( 
INS(H,H+7)):GOTO 1238 

1225 TRAP 1226:A=VAL(OUTS(H,H+7)):GOTO 
1238 

1226 A=0 

1238 AS=CLS:AS=INS(CP+Z,CP+7);IF ASCCA 
S(l,l))>64 AND A5C(AS(1,1))<88 THEN 12 
34 

1232 L=MAL (AS):GOTO 1248 

1234 TRAP 1235;F=ASC(AS(1,1)}-64;G=UAL 
(AS (2)):H=(F-l)*8+(128*(G-l)3 +1;L=VAL( 
INS(H,H+?)3;GOTO 1248 

1235 TRAP 1236;L=UAL(0UTS(H,H+73);GOTO 
1248 

1236 L=8 

1248 TRAP 48888:IF 0=42 THEN A=A*L 
1242 IF 0=43 THEN A=A+L 
1244 IF 0=45 THEN A=A~L 

1246 IF 0=47 THEN A=A/L 

1247 IF 0=94 THEN A=INT((A A L)+0.5) 

1248 IF 6L=8 THEN AS=5TRS(A):G0T0 1276 

1258 IF 6L=2 THEN 1268 

1252 A=INT(A+0.5)IAS=STflS(A):L=8-LEN(A 

S);GOTO 1278 

1268 IF A=INT(A) THEN AS=5TRS(A);AS(LE 

N(AS)+13=" I 88 ,, ;GOTO 1278 

1262 IF INT(A*10)=A*10 THEN AS=5TR^ 

:AS(LEN(AS)+1)="8":GOTO 1278 _ 

1264 A=INT(108*A+8.53/188:AS=STRS(A) 
1278 L=8-LEN(AS):0UTS(CP,CP+L3=CLS:0UT 
S (CP+L,CP+73=A$•RETURN 
1488 SUM=8:AS=INS(CP+1,CP+3);H=3:IF AS 
(3,3)=":" THEN AS=INS(CP+1,CP+23:H=2 
1482 A=ASC(AS(1,1))~64:L=MAL(AS(2)3 

1484 AS=INS(CP+2+H,CP+73;F=A5C(AS(1,13 
3-64:G=UAL(AS(23 3 

1485 IF A=F THEN 0=A-llF0R Z=L TO G:TR 
AP 1416:H=G*8+(128*(Z-1)3 +1:U=VAL(INS( 
H,H+7)):G0T0 1428 

1418 IF L=G THEN 0=L:F0R Z=A~1 TO F:TR 
AP 1416:H=Z*8+(128*(0-1)3 +1:V=VAL(INS( 
H,H+7)3;GOTO 1428 

1416 TRAP 1417:V=UAL(OUTS(H,H+7)3:GOTO 
1428 

1417 V=8 

1428 SUH=SUM+M;NEXT Z:A=SUH;GOSUB 1248 
:RETURN 


IRTSHEET HELP SCREEl 


□B":? ;? 

1585 ? " NORMAL CURSOR ARROM KEYS CON 
TROL THE":? » CURSOR (LONG BLACK BAR) 
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50 REM XXXXXXXXXXXXXXXXKXXXXXXXXXXX 


11991 

REM * 

CHECKBOOK/BUAGET 

* 

11992 

REM * 

S. OCKERS 1/86 

* 

11993 

REM * 

KEEPS TRACK OF CHECKS 

* 


11994 REM * BROKEN BONN INTO AS MANY * 

11995 REM * AS SEVEN CATEGORIES EACH * 

11996 REM »*K ** **MMMltXMltJtltlf l fltM*****M ** 

11997 REM 

11999 REM xxxxxxxxxxxx INITIALIZATION 


12080 AIM TEMPS(128),PAYEES(20),MEMOS( 
18), MONTHS(9),RESPS(20),AS(17)iAS="| 

| 11 : CKNBR=1: STBAL=0 

12818 AIM SUBAMT(8),SUBLEG(8),KEYS(1), 
SELS (1),CATS (2) , AOLS (8) :OPEN 111, 4,8,"K 
:":POKE 16,64:POKE 53774,64 
12812 AIM AEPN(15),ASCK(15),AAMT(15),S 
UBAEP(7):FOR J=i TO 7:SUBAEP(J)=0:NEXT 
J:INCAT=7:PCNT=1 
12814 POKE 789,4:POKE 718,18 
12188 REM KKMMKKM K K WIPE OUT OLA AATA 


12118 POKE 752,8:POKE 712,116:RESTORE 
”0UNT=8:P0KE 82,2 

j.28 ? "6":? :? 

12138 GOSUB 16218:IF CKNBR>10999 THEN 
12188 

12148 ? CKNBR:IF C0UNT<12 THEN 12130 
12158 RESTORE CKNBR:C0UNT=8:? :? :? "C 

ont**:? :? «i 

POSITION 0,8:POKE 842,13:5T0P 
12168 POKE 842,12:G0T0 12120 
12188 ? :? ;? "CONT":? :? 'UHUffiaE 
:POSITION 0,0:POKE 842, 

13:STOP 

12198 POKE 842,12:POKE 752,1 

12288 REM MX* * * ** *** * GET SOME AATA ** 

xxxxxxxxxxxx 

12210 AELG=0:POKE 712,54:? "N":POKE 82 

,11 :position 12,5:? 'WMmammm' 

12212 ? :? "Qead from storage":? :? "S 
tart fro» gcratch" 

12220 GET Hi,KEY:KEYS^CHRS(KEY):IF KEY 
S="R" THEN AFL6=i;GQT0 12248 
12238 IF KEYSO"S" THEN 12218 
12248 RESTORE 12398:P0KE 712,258:? "6" 
:FOR J-l TO 12:REAA MONTHS:? J;" »;MO 

NTHSiNEKT J 

12258 MGMTH^i:? ;? "Enter Month II (";M 


CHECKBOOK/BUDGET 
BY STAN OCKERS 


ONTH;") "; 

12268 NB=2:GOSUB 16388:IF RESPSO"" TH 
EN MONTH=NBR:IF MONTH<1 OR M0NTH>12 TH 
EN 12248 

12278 RESTORE 12390:POKE 182,MONTH-l:R 
EAA MONTHS;IF AFLG=0 THEN 12418 
12388 REM **xxxxxxxxx AATA FROM STORAG 
E XXXXXXXXKX 


12318 POKE 82,2:TRAP 12358:RE5PS="D CH 
ECKS."IRESPS(18)^MONTHS(1,3):RE5PS(2,2 
)=CHRS(58) 

12328 ? "6":? :? "ENTER ";CHRS(34);RES 
PS;CHRS(34):? :? :? :? "CONT":? :? 


DING FROM STORAGE 


12322 POSITION 8,8:POKE 842,13:STOP 
12338 POKE 842,12:? "6":RESTORE 0:REAA 
MONTH,STBAL:TRAP 48880 
12348 RESTORE 12398:P0KE 182,M0NTH“1:R 
EAA MONTHS:GOTO 12418 
12358 POKE 842,12:? "6":? "33MMMEIM 
(JUTf 1 -FOR Jzl TO 380:NEXT J:TRAP 48880 
:GOTO 12280 

12398 AATA JANUARY,FEBRUARY,MARCH,APRI 
L,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOB 
ER,NOVEMBER,AECEHBER 
12488 REM ** X**MKmflt)t)tMM START FRESH * 


KKKKMKKKKKKK 


12418 POKE 82,12:? "IMPOSITION 12,8:? 
"Starting Balance":? "(";STBAL;")";:N 
B-8:GOSUB 16380 

12412 IF RESPSO"" THEN STBAL=NBR 
12420 ? "6":? :? "8 AATA MONTH;",";S 

TBAL:? :? :? :? "CONT":POSITION 8,8:P0 
KE 842,13:STOP 

12438 POKE 842,12:? "6":P0SITI0N 18,9: 


INSPECTING CHECKS 


12588 REM ***** SET INIT VALUES OF CK 
It'S xxxxxx 

12510 LASTREV=1:RESTORE 1:GOSUB 16210: 
IF CKNBR<10080 THEN LASTREV=CKNBR 
12520 GOSUB 16218:IF CKNBR<18008 THEN 
LASTAAA=CKNBR:GOTO 12528 
12538 LASTAAA=LASTAAA+1:RESTORE 0:REAA 
MONTH,STBAL:RESTORE 12398:P0KE 182,MO 
NTH-l:REAA MONTHS 

12548 RESTORE 18880:DEPLN-18808:GOSUB 
16218:IF CKNBR<11080 THEN AEPLN=CKNBR: 
AREV=VAL(TEMPS(3,6)):LASTAEPrAREV 
12558 GOSUB 16210:IF CKNBR<11080 THEN 
A£PLN=CKNBR:LASTAEP=VAL(TEMPS(3,6)):GO 
TO 12558 

12568 AEPLN=AEPLN+18:CKNBR-LASTREV:LAS 
TAEP-LASTAEP+i 


-i H :? "I Gjdd Checks |» 

12598 ? AS:? "| (Devise Checks |":? AS: 
? "I (Deposits |»:? AS:? "| Bncome 
5u**arg|":? AS:? »| gxpenses Sum. |" 
12688 ? AS:? "I Qev Month 1":? AS: 
? "I drite Month |":? AS:? "| Qatego 
ries |":? AS:? "| [Balance Thru |" 
12618 ? " 1 — * •• 

12628 REM xxxxxxxxxxxxxx GET CHOICE ** 
** KKKKKKKMKK 

12638 GET 111, KEY: SELS=CHRS (KEY) : IF 5EL 
S-"A" THEN CKNBR=LASTAAA:GOSUB 13818:L 
ASTAAA=CKNBR+i 

12648 IF SELS="I" THEN GOSUB 14918 
12645 IF SELS=»E" THEN POKE 712,182:GO 
SUB 13418 

12658 IF SELS="R» THEN POKE 712,86:CKN 
BR=LASTREV:GOSUB 16018:GOSUB 16818:G05 
UB 13148:LASTR£V=CKNBR+i 
12678 IF 5ELS="N" THEN GOTO 12108 
12688 IF 5ELS="W" THEN POKE 712,258:60 
SUB 14018 

12698 IF SELS="C" THEN POKE 712,134:60 
SUB 12918 

12788 IF 5ELS="B" THEN GOSUB 14118 
12718 IF 5ELS=»A» THEN POKE 712,158:60 
SUB 14518 
12720 GOTO 12588 

12988 REM XKltlfKMlt CATEGORY CHOICES *** 

12918 ? "6":POSITION 11,7:? "Sheck Cat 
egory":? "jBeposit Category";? :? "B 
ist of Categories" 

12928 ? ;? "Qrint Category Totals":? : 
? , ‘BD3nOEB": GET 111, KEY: KEYS=CHRS (KEY) 
:IF KEYS="C" THEN GOSUB 13618:RETURN 
12938 IF KEYS=»A" THEN GOSUB 14818:RET 
URN 

12948 IF KEYS-"L" THEN GOSUB 13982:RET 
URN 

12958 IF K£YS="P" THEN GOSUB 13718:RET 
URN 

12968 IF KEY-155 THEN RETURN 
12978 GOTO 12918 

13088 REM XXXXXXXXXXX ENTER CHECK INFO 
XXXXXXXXKXX 

13010 POKE 712,198:POKE 82,5:? »K":P05 
ITION 5,8:NB=4;? "Enter Check » (";CKN 
BR;») ";:GOSUB 16388 
13012 IF RESPSO"" THEN CKNBR=NBR 
13020 NB=2:? "Enter Aay (";AAY;") ";:G 
OSUB 16300:IF RESPSO"" THEN AAY=NBR 
13822 IF AAY<i OR AAY>31 THEN 13020 


12578 REM xxxxxxxxxxxxxxxxxxx MENU *** 

MMKKMMKKMMKM 

12580 POKE 712,54:? »*":POKE 82,11:P0S 
ITION 11,2:? MONTHS;" Checks":? »i- 


13038 NB=20:? "Enter Payee (";PAYEES;" 
)":? " ";-.GOSUB 16380:IF RESPSO 

"" THEN GOSUB 13238:PAYEES=RE5PS 
13848 NB=7:? "Enter Amount (";AMT;") " 
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GOSUB 16388:IF RESPSC"" THEM AMT^NB 
R 

13859 NB=18:? "Enter Me*o C";HEMOS;")" 

:? " "; :G05UB 16300:IF RESPSO"" 

THEM G0S1I6 13238 :HEHQ$=RE5P$ 

13860 NUMSUB-0:SUBT0T=8 

13078 MUK5UB=MU«SUBT1:? "Category C";5 
USLEG(MUM5UB);") ";:N6=2;GQSUB 16380 
13088 IF RESPSO"" THEN SUBLEGCMUHSUB) 
-MBR 

13050 SUBAHTCMUHSUB)=AHT-SUBTOT:? "A*0 
unt C»jSUBAHTCMUHSUB);") "; 

13188 MB=7:G05UB 16380:IF RESPSO"" TH 

EM SUBAHTCMUHSUB)=MBR 

13118 5UBTQT-5UBT0T+5UBAMT CMUHSUB):IF 

SUBTOT(AHT THEN 13870 

13128 IF SUBTOT)AHT THEM ? "TOO HUGH!! 

!»;FOR J-l TO 588:NEXT J:GOTO 13860 

13125 GQSUB 16718 

13130 REH ****** * * * CONFIRM IF CORRECT 
*********** 

13140 ? "X":POKE 82,4:POSITION 4,4:? " 

I ■ - . . ■ i ":FOR J 

=1 TO 5 
13142 ? "I 

I":NEXT J:? "*-- 


13144 POSITION 26,5:? "It ";CKNBR:POSIT 
ION 22,6:? ";HOMTH;"/";DAY:POSI 

TION 6,8:? ■laE MMI ";PAYEES 
13146 POSITION 18,10:? TEHP$C23,38);" 
dollars": POSITION 6,12:? 'UBESB ";HEHO 
$:POKE 82,2 

13148 POKE 281,15:POSITION 2,16:F0R J- 
1 TO MUH5UB:RESTORE 28008+SUBLEGCJ):RE 
AO RESP$:P05=42+18*J 
13158 ? RESP$;" ";TEHP$CP0S,P05+7),:ME 
XT J 

13160 POSITION 7,21:? "CORRECT? CS3/Q/H 

rase /l:laiill;T!l) ": GET HI, KEY; KEYS=CHRS CKEY 

):IF KEYS="Y" THEM 13288 

13170 IF KEY=155 THEN RETURN 

13172 IF KEY$="E" THEN GOSUB 13310:RET 

URN 

13188 IF KEY$="N" THEN 13810 
13182 GOTO 13168 

13158 REM ******* ENTER CHECK AS DATA 
LINE ******* 

13288 POKE 82,0:? "X":? :? CKNBR;"DATA 
";TEMPS:? "CONT":POSITION 8,8:P0KE 84 
2,13:STOP 

13210 POKE 842,12:RETURN 

13220 REH *********** * CLEAN OUT COMMA 

5 ******** 

13238 FOR J=i TO LEN(RESPS):IF RESPSCJ 
,J)="," THEN RE5P$CJ,J)=" " 

13248 NEXT J:RETURN 


13308 REM *********** OELETE A CHECK * 
********** * * 


[Delete this Itew (V/N)?l 


HI,KEY:KEYS^CHRSCKEY):IF KEY$<>"Y" THE 
N RETURN 

13328 POKE 785,156:? "X":? :? C-KNBR:? 

:? :? "CONT":POSITION 0,8:POKE 842,13: 
STOP 

13338 POKE 842,12 

13348 ? "X":POSITION 16,18:? CKNBR;" S 
FOR J=1 TO 108:NEXT J:RETURN 
13488 REH ****** EXPENSES SUMMARY **** 

13418 RESTORE 1: TQT=:8: GOSUB 16668 
13438 IF PFLAG^l THEN LPRINT :LPRINT : 
LPRINT "EXPENSE SUMMARY FOR THE MONTH 
OF ";MONTHS 

13448 IF PFLAG^i THEM LPRINT :LPRINT " 
CK II DATE MEMO PAYEE 

AMOUNT CATEGORY":LPRINT 

13442 IF PFLAG^l THEN PCNT=PCNT+4:GQSU 
B 16610 

13458 POKE 82,2:? "XCK It DATE PAYEE 
CATEGORY AMT":? :C0UNT=8 

13468 GOSUB 16210:IF CKNBR>5555 THEN G 
OSUB 13586:RETURN 

13478 LSAM1-PEEKC183);L5AV2=PEEKC184); 
GOSUB 17010:RESTORE SUBLEG Cl)+20000:RE 
AD RE5PS 

13488 ? CKNBRJ" "; MONTH;"/";TEMPS Cl,2) 
;" ";PAY£ES(i,14);" ";TEMP$C58,51);" " 
;TEMPS(52,55):TOT=TOT+AMT 

13581 IF PFLAG^l THEM GOSUB 13558 

13582 IF NUMSUBH THEN FOR J=2 TO NUNS 
UB:GOSUB 13552:COUNT=COUNT+l:NEXT J 

13583 POKE 183,LSAM1:POKE 184,LSAV2:IF 
C0UNT>=15 THEN C0UNT=8;IF PFLAG=8 THE 

N GOSUB 16118'.GOTO 13450 

13585 GOTO 13460 

13586 RE5P$=STR$ (TOT):GOSUB 16518:IF P 
FLAG=1 THEN LPRINT :LPRINT " 

Total Expenses =";DOLS 

13587 IF PFLAG=i THEN PCNT=PCNT+l:GOSU 
B 16618 

13588 ? :? " Total Expenses =";DOL 
$ 

13585 IF PFLAG-8 THEN GOSUB 16110 
13558 RETURN 

13552 RESTORE SUBLEG(J)+28080;READ RES 
P$:P0S=48+18*J:? " 

";TEMPS(POS,POS+l);" "; 

13554 ? TEMP$CP0S+2,P0S+5) 

13556 IF PFLAG-1 THEN LPRINT " 

";TEMPSCPGS+2,P05+5);" ";RESPS 

13557 GOSUB 16610:RETURN 
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13558 LPRINT CKNBR;" "; MONTH;"/"; TE>"* A 
Cl,2);" ";TEMP$C3i,48);" ";PAYEE$;‘ 
TEMPS(52,55);» »;RESPS ~ 

13555 GOSUB 16618:RETURN 
13688 REM ****** CATEGORY TOTALS TO SC 
REEN * ** **** 

13618 POKE 82,7:? "X":POSITION 7,7:NB- 
2:? "Enter Category It";: GOSUB 16388:CA 
TS-5TRSCNBR):RESTORE 1:CAT0T=8 
13620 COUNTS;? "XChecks in category " 

;CATS;? 

13638 GOSUB 16218:IF CKNBR>10088 THEN 
13688 

13648 NBR=VAL(TEMPS(45,45)):FOR J-i TO 
NBR:POS=40+18*J 

13658 IF TEMP$CP05,P0S+1)=CAT$ THEN GO 
SUB 13658:? CKNBR;" G ";TEMPS(POS+2,PG 
S+9) 

13668 NEXT J:IF CCNT=18 THEN CCMT=8;G0 
SUB 16118:? :GOTO 13630 
13678 GOTO 13638 

13688 R£SP$=STRS(CAT0T):GQSUB 16518:? 
:? "TOTALS";DOL$;GOSUB 16118:RETURN 
13685 REM ***** ADD CATEGORY ENTRY SUB 
ROUTINE ***** 

13698 CVAL=VALCTEHP$CPQS+2,P0S+9)):CAT 
OT-CATQT+CUAL*.CCNT=CCNT+1:RETURN 
13708 REM *** CATEGORY TOTALS LISTED 0 
N PRINTER *** 

13718 ? "X"'.POSITION 4,7:? "Press HE 
(Top of For*) or 02*H1":GET U1,KEY;IF 
KEY=27 THEN PCNT^l 

13712 RESTORE 20881:? "X":POSITION / 
: ? 

13714 LPRINT '.LPRINT "CATEGORY TOTALS 
FOR THE MONTH OF ";MONTHS:LPRINT :PCNT 
-PCNT+3:GOSUB 16618 

13718 READ RESPS:IF RE5P$C1,3)="***" T 
HEN RETURN 

13728 LSAU1=P£EK(183)IL5AV2-PEEK(1843: 
MSAV=PEEK(182):CAT-L5AVi+256*LSAV2-200 
88:CATS=5TRS(CAT) 

13738 POKE 281,16:CCNT=8:L=LEN(RESP$); 
IF L<13 THEN FOR I=L*i TO 13:RESPS(I,I 
)-" ":NEXT I 

13748 LPRINT CAT;" ";RESP$(1,11);" "; 

:RESTORE 1:CAT0T=8 

13758 GOSUB 16210:IF CKNBR>18088 THEN 
13808 

13768 NBR=VAL(TEWS(49,49)) :FOR J=i TO 
NBR:PO5=40+18*J 

13778 IF TEW»S(POS,POS+l)=CATS THEN GO 
SUB 13698:LPRINT TEMPS(P05+2,POS+5);"/ 
";CKNBR, 

13788 IF CCNT=3 THEN CCMT=8:LPRINT ,, 

13758 NEXT J:GOTO 13758 

13808 IF CCMT<3 THEN FOR L=1 TO 3-CCNT 


RINT , :NEXT L 

~d!0 RESP$=5TR$(CAT0T);GOSUB 16510:LP 
RINT CAT;" TOT=";DOL$:GOSUB 16619 
13829 POKE 183,LSAVi:POKE 184,L5AV2:P0 
KE 182,N5AV:GOTO 13718 
1390O REH ***** LIST OF AVAILABLE CATE 
GORIES ****** 

13902 GOSUB 16660:IF RFLAG=1 THEN RETU 
RN 

13919 ? "^CATEGORIES": RESTORE 26991:00 
UNT=8;IF PFLA6=i THEN LPRINT :LPRINT : 
LPRINT "CATEGORIES”:LPRINT 
13912 IF PFLAG=1 THEN PCNT=PCNT+3:G05U 
B 16619 

13929 REAR RE5P$:IF RE5P$Cl,31="***" T 
HEN 13949 

13921 CAT=PEEK(1831+256*PEEK(184)-2098 
0:? CAT;" ";RESP$:COUNT=COUNm 

13922 IF C0UNT=21 THEN C0UNT=8:IF PFLA 
6=9 THEN GOSUB 16119:? "N» 

13924 IF PFLAG=1 THEN LPRINT CAT;" "; 
RE5P$:GOSUB 16619 
13936 GOTO 13928 

13946 IF PFLAG=9 THEN GOSUB 16119:RETU 
RN 

13942 RETURN 

14900 REH ********* SAVE DATA TO STORA 
GE * * * ** * **** 

14919 ? "N":RE5P$="D CHECKS.":RE5P$(19 
)=M0NTH$(1,3):RE5P$(2,2) =CHR$(58):P05I 
' ’'N 10,18;? " ffVUit l ";RE5P$ 

_ 10 LIST RE5P$,9,10999:RETURN 

14190 REH *********** CALCULATE BALANC 
E5 ** ******** 

14110 ? "N"SPOKE 82,7:POSITION 7,7:? » 

restore isgosu 

B 16210:STCK=CKNBR 

14112 DEPCNT=0:RESTORE 10608:FOR J=9 T 
0 15:DAHT(J)=9:ASCK(J)=9999:NEXT J 

14114 GOSUB 16210;IF CKNBR>10999 THEN 

14129 

14115 IF TEHP$(3,6)="9999" THEN 14114 

14116 DEPN(DEPCNT)=VAL(TEHP$(3,6)):ASC 
K(DEPCNT)=VAL(TEW>$(15,18)):DAHT(DEPCN 
T)=VAL(TEHP$(7,14)):DEPCNT=DEPCNT+1 
14118 GOTO 14114 

14120 ? "Start check(";5TCK;") ";;NB=4 
:GOSUB 1630O:IF RESP$<>"" THEN 5TCK=NB 
R 

14122 RESTORE 5TCK;GOSUB 16219:IF CKNB 
ROSTCK THEN ? ;? ' laMEMICW s? :G0 
TO 14120 

14130 BBAL=5TBAL:RESTORE 1:GOSUB 16666 
:IF RFLAG=1 THEN RETURN 

14149 FOR J=6 TO 15: IF ASCKUXSTCK TH 
EN BBAL=BBAL+DAHT(J) 

14142 NEXT J 


CHECK CON’T 


14158 GOSUB 16210:IF CKNBR>9998 THEN 1 
4169 

14152 IF CKNBR<STCK THEN BBAL=BBAL~VAL 
(TEHP$(23,39)):GOTO 14150 
14169 POKE 82,0:POKE 201,19:? :? "PREV 
. BAL CKtt AMOUNT NEH BAL":? 

14162 IF PFLA6=1 THEN LPRINT :LPRINT : 
LPRINT "PREV. BAL CKtf AMOUNT 
NEH BAL":LPRINT :PCNT=PCNT+3 
14164 IF PFLAG=1 THEN GOSUB 16610 
14179 GOSUB 14308:? :? "02331 to conti 
nue or hliMri:i »:6ET til,KEY:KEY$=CHR$(KE 
Y):IF KEY=155 THEN RETURN 
14290 POKE 764,255:GOSUB 16210:IF CKNB 
R>9998 THEN GOSUB 16110:RETURN 

14219 GOSUB 14308:IF PFLAG=1 THEN 1428 
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14212 IF PEEK(764)=255 THEN 14299 

14220 POKE 764,255 

14239 IF PEEK(764)=255 THEN 14230 
14248 GOTO 14280 

14309 FOR K=0 TO 15:IF ASCK(K)=CKNBR T 
HEN GOSUB 14359 
14319 NEXT K 

14339 CKAHT=VAL(TEHP$(23,39)):? BBAL,C 
KNBR,CKAHT,;IF PFLAG=1 THEN LPRINT BBA 
L,CKNBR,CKAHT, 

14332 BBAL=BBAL~CKAHT:? BBAL’.IF PFLAG= 
1 THEN LPRINT BBAL:GOSUB 16618 
14349 RETURN 

14358 ? BBAL,"DEP",DAHT(K),:IF PFLAG=1 
THEN LPRINT BBAL,"DEP",DAHT(K), 

14366 BBAL=B6AL+DAMT(K):? BBAL:IF PFLA 
6=1 THEN LPRINT BBAL:GOSUB 16610 
14379 RETURN 

14590 REH * ********* ENTER A DEPOSIT * 
************ 

14510 ? "N"SPOKE 82,14:POSITION 17,7:? 
"EZSQSii 11 :? i? "Qeview/Change":? :? " 
Sdd Deposit";? :? "OmgOQ' 1 :DPNBR=DREV 
14520 GET ttl,KEY:KEY$=CHR$(KEY):IF KEY 
$="A" THEN DPNBR=LASTDEP:GOSUB 14619:L 
ASTDEP=LA5TDEP+1:DEPLN=DEPLN+18:RETURN 


14522 IF KEY=155 THEN RETURN 


14539 RESTORE 10900:POKE 82,7:? :? "Efl 


ter Deposit It (";DPNBR;") ";:NB=4:G05U 
B 16390:IF RESP$<>"" THEN DPNBR=NBR 
14549 GOSUB 16210:IF CKNBR>18999 THEN 
? :? 'WaESSSE "-'GOSUB 16110:RETURN 
14559 IF VAL(TEHP$(3,6)X>DPNBR THEN 1 
4549 


14569 DAY=VAL(TEMPS(1,2)):DPAHT=VAL(TE 

HP$(7,14)):ASCHK=VAL(TEHP$(15,18)):SAV 

LN=DEPLN:DEPLN=CKNBR 

14562 FOR J=1 TO 7:P05=li+8*J:5UBDEP(J 

)=VAL(TEMPS(POS,POS+7)):NEXT J:GOSUB 1 
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4668 

14570 D£PLN=SAVLN:DREV=DREV+1:RETURN 
14609 REH * ******** ENTER DEPOSIT DATA 
*********** 

14618 ? "N"SPOKE 82,7:POSITION 7,5:? ” 
Enter dag (";DAY;") ":NB=2:GOSUB 16380 
:IF RESP$<>"» THEN DAY=NBR 
14620 ? :? "Enter Deposit It (";DPNBR;" 
) ";:NB=4:G0SUB 16300;IF RE5P$<>"" THE 
N DPNBR=NBR 

14630 ? :? "Enter associated";? "check 
nunber (";A5CHK;") ";:GOSUB 16399:IF 
RESP$<>»» THEN ASCHK=NBR 
14648 ? :? "Enter Anount (";DPAHT;") " 
;:NB=8:GOSUB 1630O:IF RE5P$<>"" THEN D 
PAHT=NBR 

14641 FOR J=1 TO INCAT:SUBDEP(J)=9:NEX 
T J 

14642 TOT=0:AMT=DPAMT:FOR J=1 TO INCAT 
:RESTORE 28190«J:READ RESP$:? :? "Ente 
r ";RE5P$;» (";AMT;») ":5UBDEP(J)=AMT 

14644 GOSUB 16300:IF RESPSO"" THEN 5U 
BDEP(J)=NBR 

14645 TOT=TOT+SUBDEP(J):IF TOT>DPAHT T 
HEN ? :? " MMSUM«m »:COTO 14641 

14646 AHT=AHT-5UBDEP(J):IF AHT=9 THEN 
J=INCAT 

14648 NEXT J 

14669 POKE 82,7:? "*(":? :? "Date = ";H 
ONTH$;" ";DAY:? :? "Deposit It = ";DPNB 
R:? :? "Assoc, ck H = ";A5CHK:? 

14662 ? "Anount = ";DPAHT:? :FOR J=i T 
0 INCAT:RESTORE 201OO*J:READ RE5P$:? R 
ESP$;" = ";SUBDEP(J):NEXT J 
14679 ? :? "Correct? (H/f!}.Brase. filllinri 
)":GET 111,KEY:KEY$=CHR$(KEY) :IF KEY$=" 
N" THEN 14618 

14672 IF KEY=155 THEN RETURN 

14688 IF KEY$="E" THEN ? :GOSUB 13310: 

RETURN 

14699 TEHP$(1)=" ":TEHP$(74)=" ":TEW»$ 
(2)=TEHP$:TEHP$=5TR$(DAY):TEMP$(3)=5TR 
$ (DPNBR):RE5P$=5TR$(DPAHT) 

14691 GOSUB 16519;TEMP$(7)=DOL$ 

14692 TEMP$(15)=STR$(ASCHK):FOR J=1 TO 
INCAT:RESP$=STR$(SUBDEP(J)):GOSUB 165 

19:TEHP$(11+8*J)=DOL$:NEXT J 
14709 ? "6":? :? DEPLN;" DATA ";TEHP$: 
? :? :? "CONT":POSITION 9,9:POKE 842,1 
3:STOP 

14719 POKE 842,12SRETURN 

14809 REH * ****** DEPOSIT CATEGORY TOT 

AL *** ***** 

14819 T0T=8:RESTORE 20181:? "N":? :? : 
FOR J=i TO INCAT:READ RESP$:? J,RE5P$: 
NEXT J:? INCAT+i,"Totals" 

14829 ? :? "Press category nunber.":GE 



T 8i,DCAT:DCAT-DCAT-48:IF DCAT<1 OR DC 
AT)INCAT+i THEN 14810 
14828 IF DCAT-INCAT+1 THEN P05=7;? "N» 
:? !? "DATE DEP II AMOUNT 11 :? :RESTORE 1 
0908:GOTO 14848 

14838 RESTORE 20i80*DCAT:READ RE5P$:? 

"*":? :? "DATE DEP It ";RESPS:? :RE5T0R 

E 18888:P0S=ii*8*DCAT 

14848 GOSUB 16218:IF CKNBR)11088 THEN 

? ‘.RE5PS-5TRS(TOT):GOSUB 16518:? " TO 

TAL = ";DOLS:GOSUB 16118:RETURN 

14858 AMT=VAL(TEMPS(P05,PQ5+7)):? TEMP 

$(1,2);» ";TEMPS(3,6);" ";TEMP$CPOS, 

P05+7)ITOT-TOT+AMT 

14860 GOTO 14840 

14980 REM ********** INCOME SUMMARY ** 
********* 

14918 POKE 281,18:GOSUB 16660:IF RFLAG 
=1 THEN RETURN 

14912 IF PFLAG=8 THEN GOSUB 14818:RETU 
RN 

14928 LPRINT ILPRINT :LPRINT "INCOME 5 

UMMARY FOR THE MONTH OF ";MONTH!ILPRIN 

T :PCNT=PCNT+3:GOSUB 16618 

14938 FOR J=i TO 7:SUBAMT(J)=8:NEXT J: 

T0T=8;RESTORE 28181:FOR J=1 TO INCAT:R 

EAD RESPS:LPRINT RESPS,:NEKT J 

14948 LPRINT " Total":RESTORE 18880:L 

PRINT :PCNT=PCNT+l:GOSUB 16618 

14958 GOSUB 16218:IF CKNBR)11880 THEN 

14989 

14968 FOR J-i TO INCAT:P05=11+8*J:LPRI 
NT TEMPSCPOS,P05+7),:SUBAMT(J)=SUBAHT( 
J)+VAL (TEMPS (P05,P0S*7))‘. NEXT J 
14978 LPRINT TEMPS(7,I4):TOT=TOT+VAL(T 
EW>S(7,14)):G05UB 16618:G0T0 14950 

14988 FOR J=i TO INCAT+1:LPRINT “_ 

_",:NEXT J:FOR J=1 TO INCAT:RE5P$=ST 

R$(SUBAMT(J)) 

14998 GOSUB 16518:LPRINT DOL$,:NEKT J: 
RESP$=STR$(TOT):GOSUB 16518;LPRINT DOL 
$:PCNT=PCNT+l:GOSUB 16618 
15000 REM *X**XKKXXK PRINT DEPOSIT SUM 
MARY X* * ****** 

15018 TOT:©:? :PRINT "Dep It Date Ano 
unt Assoc. c kit": RESTORE 10090:PRINT 
15828 IF PFLAG=1 THEN LPRINT ;LPRINT : 
LPRINT "Dep II Date Anount Assoc, ck 
It": LPRINT :PCNT=PCNT+3:GOSUB 16618 
15030 GOSUB 16218:IF CKNBR)11888 THEN 
15098 

15848 DPNBR=VAL(TEMPS(3,6)) 

15858 ? DPNBR;" ";MONTH;"/"; TEWS(1,2 
);" ";TEMP$(7,14);" ";TEMPS(15,18 
):TOT-TOT+MAL(TEMPS(7,14)) 

15968 IF PFLAG=1 THEN LPRINT DPNBR;" 

»;MONTH;"/";TEMP$(1,2);" ";TEMPS(7, 


CHECK CON’T 

14);» ";TEMP$(15,18):GOSUB 16618 

15078 GOTO 15038 

15898 RE5PS=5TRS(TOT):GOSUB 16518:IF P 

FLAG=1 THEN LPRINT :LPRINT " Total D 

eposit = ";DOLS 

15091 PCNT-PCNT+1:GOSUB 16618 

15892 ? :? " Total Deposit = ";DOLS; 

IF PFLAG=8 THEN GOSUB 16118 

15894 RETURN 

16008 REM X * ********* WHICH CHECK? *** 


16818 ? "N":POSITION 6,18:? "Input Che 
ck It C";CKNBR;") ";:NB=4:G05UB 16308:1 
F RE5PSO"" THEN CKNBR=NBR:RETURN 
16028 RETURN 

16180 REM ***** WAIT FOR KEYPRESS SUBR 
OUTINE ***** 

16118 POKE 82,7:? :? "Press 0jE01 to c 
ontinue";:GET HI,KEY:RETURN 
16288 REM ****** READ A DATALINE SUBRO 
UTINE ****** 

16218 READ TEMP$:C0UNT=C0UNT+1‘.CKNBR=P 
EEK(183)+256*PEEK(184):RETURN 
16298 REM ****** LIMITED STRING INPUT 
ROUTINE ***** 

16292 REM ***** NB IS II BLANK SPACES A 
LLOHED ****** 

16294 REM ** * **** INPUT RETURNED IN RE 
SPS * ******** 

16296 REM ***** IF NUMBER, RETURNED IN 
NBR ******** 

16300 POKE 752,8:RESPS-"":FOR L=i TO N 
B:? :NEXT L:FOR L-l TO NB;? CHRSC3 
0);:NEXT L:POS=l;NFLG=0 
16318 GET lll,KEY:IF KEY=155 THEN TEMPS 
=RESP$:GOTO 16368 

16312 IF KEY)47 AND KEY<58 AND POS^l T 
HEN NFLG=1 

16315 IF KEY-126 AND PQ5=2 THEN ? CHRS 
(38);CHR$(38);:P05=l:RESP$="" 

16328 IF KEY=126 AND P0S)2 THEN ? CHR$ 
(38);»_";CHR$(39);:P0S=P05-1:RESPS=RES 
P$(1,P0S-1) 

16338 IF POS=NBU THEN 16318 

16340 IF KEY<20 OR KEY)122 THEN 16318 

16358 ? CHRS(KEY);:RESPS(P0S,PQ5)=CHRS 

(KEY):P05=P05+l;GOTO 16318 

16368 N8R=8:IF NFLG=1 THEN NBR=VAL(TEM 

P$) 

16378 ? :POKE 752,1:RETURN 

16588 REM ****** PUT RE5P$ IN DOLLAR F 

ORMAT ******* 

16518 L-LEN(RESPS):FQR K=1 TO L:IF RES 
P$(K,K)<)"." THEN NEXT K:RESPS(K)=",89 

If 

16528 IF L=K THEN RESP$(K*l,K+2)="88» 
16536 IF L-K+i THEN RESPS (K*2,K+2)="0" 
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16548 L-LEN(RESPS):D0L$(9-L)=RESP$:J* 
L<8 THEN FOR K-i TO 8-L:D0L$(K,K)=‘ 
NEXT K:RETURN “ 

16558 RETURN 

16688 REM ****** FORMFEED SUBROUTINE * 

tfvvi/ V 

16618 PCNT-PCNT+i;IF PCNT)57 THEN FOR 
L=i TO 67-PCNT:LPRINT -.NEXT L:PCNT-i 
16620 RETURN 

16658 REM ****** PRINTER? SUBROUTINE * 

WUUUtf 

fCnTCTTn 

16660 PFLAG-8;RFLAG-8:? "6":POSITION 4 
,7;? "Screen, arinter,3E or : 

GET HI,KEY;KEYS-CHRS(KEY) 

16678 IF KEY-155 THEN RFLAG-I:RETURN 
16688 IF KEY$="P" THEN PFLAG^l:RETURN 

16682 IF KEY-27 THEN PCNT^l;POSITION 1 


STOP OF FORM SET) 


0:NEXT J:GOTO 16668 

16685 IF KEY$<)"5" THEN 16668 

16698 RETURN 

16788 REM ****** ENCODE TEMP$ WITH CK 
DATA ** * * **** 

16718 TEMPS(1)=" ":TEMP$(128)-" TEMP 
S(2)-TEMPS:TEMPS(1) -STRS(DAY):TEMPS(3) 
-PAYEES:RE5PS=STRS(AMT):GOSUB 16518 
16728 TEMPS(23) -DOLS:TEMPS(31)=MEMOS;T 
EMPS(49)-STRS(NUMSUB):FOR J=1 TO NUMSU 
B:005=48+18*J 

16738 TEMPS(P0S)=5TRS(SUBLEG(J)) :RESP$ 
-STRS(SUBAMT(J)):GOSUB 16518:TEMPS' 

*2)-DOL$'.NEXT J:RETURN _ 

16886 REM ****** GET CHECK DATA ****** 

16818 TRAP 16898:RESTORE CKNBR:READ TE 
MPS;GOSUB 17818iRESPS-PAYEES:GOSUB 169 
10;PAYEES=RESPS 

16812 RESPS-f€MOS:GOSUB 16918:MEMGS=R£ 
SPS 

16838 CKNBR-PEEK(183)+256*PEEK(184) 
16898 TRAP 48088‘.RETURN 
16988 REM **** STRIP RESPS OF TRAILING 
BLANKS **** 

16918 L=LEN(RESPS) 

16920 IF RESPS(L,L)=" " THEN RESPS=RE5 
PS(i,L~l):L-L-1:60T0 16920 
16938 RETURN 

17808 REM ****** DECIPHER CK DATA FROM 
TEMPS ****** 

17818 DAY=¥AL(TEMPS(1,2)):PAYEES=TEMPS 
(3,22) 

17820 AMT=MAL(TEMPS(23,38))I MEMOS=TEMP 
S(31,48) 

17838 NUMSUB=UAL(TEMPS(49,49)):FOR J=i 
TO NUMSUB:P05=48+18*J:SUBLEG(J)=</AL(T 
EMPSCPOS,POS+1)) 



CHECK CON’T 

17946 SUBAMT( J)=UAL (TEHP$(P05+2,POS+9) 
':NEXT J:RETURN 

>99 REM WMMKKltmt CATEGORY It'S ANA NA 
^nES ****KXXXM 
28008 AATA 11 11 

20010 AATA Pas. Salary 

20011 AATA Pas. Trans. 

20012 AATA Rent/Ut/IRA 

20013 AATA Pro. Growth 

20014 AATA LeitCh Sal. 

20015 AATA AP Transp. 

20016 AATA AP Health 

20017 AATA AP SOC Sec. 

20020 AATA Church Mort 

20021 AATA Pkg Lot Ln. 

20022 AATA Church Gas 

20023 AATA Ch. COM Ed. 

20024 AATA Ch. Hater 

20025 AATA Bond Int. 

26026 AATA Bond RedeM. 

20027 AATA Bldg * GndS 
20630 AATA Off. Supply 

20031 AATA Ch. Phone 

20032 AATA Miscellany 

20033 AATA HonorariuM 

20040 AATA Sunday Sch. 

20041 AATA Youth 

20042 AATA BUS HiniSt. 

20643 AATA Awana Clubs 

20044 AATA Jr. Church 

20045 AATA UBS 

20046 AATA Music 
<*47 AATA Ainners 
J4B AATA Flowers 

20060 AATA Rowells 

20061 AATA Biven 
20662 AATA Stirewalt 

20063 AATA BraHner 

20064 AATA Mingo 

20065 AATA Buckley 

20066 AATA Hayes 

20067 AATA Miss. Other 
20066 AATA F of Israel 
20069 AATA Connon 

20090 AATA B. Fund Aep 

20091 AATA Others 

20092 AATA Love Offer. 

20093 AATA M. Fund Aep 

20094 AATA Salables 

20100 AATA ****** AAA AEP05IT CATEGORI 
ES IN THE 7 NEXT LINES ****** 

20101 AATA Love Off 
26102 AATA Tithes 
20103 AATA Missions 
2B104 AATA Bldg Fnd 
20105 AATA Others 
20166 AATA Awana 
20107 AATA Extra 


SMART CON’T 


1510 ? " A.. ,Z,";CHR$(34);" Marks 
cell as a label":? " 0,..9,+,- Marks 
cell as a value" 

1515 ? " : 

is values":? " 
or row." 

1520 ? " OPTION 
orwula":? " SELECT 
ose fro*:-" 

1525 ? " 

? n 


Sum ForMula. Tota 
in a colUMn 

Harks cell as a f 
Main Menu. Cho 


G=Global ForMat": 
L=Load Worksheet":? » 
S=5ave Worksheet" 

1530 ? " P=Print Worksheet 

"s? " E=Erase Worksheet" 

1532 ? " H=Hone Cursor.(Ce 

XI Al)":? » ?=Help Screen. 


1535 ? " START Calculate Workshe 
et":? :? :? »►- PRESS ANY KEY TO RETUR 
N :GET M2,K:GOTO 420 
1999 STOP 
2006 U$= 


12345678 310111213141 


51617181320212225242526272823303132333 


4353637383340 


2005 H$r: H til =7: FOR T 
-2 TO 4:H(T)=H(T-1)+8:NEXT T:POKE 5376 
0,288:GL=8 

2010 OUT$(i)=" ":OUT$(4600)=" ":0UT$C2 
)=0UT$:IN$=OUT$:5$ Cl)=" ":S$(600)=" »: 
5 $ ( 2 )= 5 $ 

2015 PR$(i)=» ":PR$(120)=" ":PR$(2)=PR 
$ 

2020 X=1: Y=i: C$="|BHB" '■ XHIN=X: YMIN 
=X:Y1=X:Xi=X:XHAX=4:YHAX=28:CELL$="A1" 
:FL=8:CL$=» 


2050 RETURN 

2100 CLOSE HI:RESTORE 2120:POKE 54286, 
192 

2105 REAA E,AI$:IF E=PEEK(195) THEN PO 
5ITI0N 8,1:? "QError:";AI$:TRAP 48800: 
GOSUB 218:GOTO 50 

2118 IF E--1 THEN POSITION 8,1;? "QErr 
or:No.";PEEK(195);" ":TRAP 4880 

8:GOSUB 210:GOTO 50 
2115 GOTO 2105 

2120 AATA 138,Aevice Not On,139,Aevice 
NAK,140,serial FraMe,142,Serial Bus,l 
43,Check5UM No.143 

2122 AATA 144,Write Protected,162,Aisk 
Full,163,Bad AOS,167,File Locked,170, 
No such file,-1,a 


FROM LAST MONTH 
PROGRAM COMPARER 

18 REM *** PROGRAM COMPARER BY RlCK GR 
OSZKIEHICZ 

180 AIM LINE1$(150),LINE2$(150},FILE1$ 
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(15),FILE2$(15);OFF-40808 
185 GRAPHICS 8:POKE 82,1:POKE 83,38 
110 ? “ Prograw Cowparator":? 

:? "This prograw analyzes two LISTed B 
ASICprograMS and prints the difference 
s" 

138 ? :? :? "Please enter the naMe of 
file Mi" 

148 INPUT FILEi$ 

158 ? :? :? "Please enter the name of 
file M2" 

168 INPUT FILE2$ 

170 ? :? :? " Please load disk con 
taining both filesand hit RETURN to st 
art" 

188 POKE 764,255 

198 IF PEEK(764)=255 THEN 198 

208 POKE 764,255 

285 REN *** OPEN BOTH AISK FILES 

286 CLOSE Ml;CLOSE M2:CLOSE M3 

218 TRAP 220:OPEN M1,4,8,FILE1$:TRAP 0 
FF:G0TG 318 

228 ? :? "FILE Ml, (";FILE2$;") PROAUC 
EA AN ERROR, (";PEEK(195);»)":? 

338 TRAP OFF 
348 GOTO 138 

345 REM *** PROMPT FOR SCREEN US PRINT 
ER 

358 10=8 

360 ? :? "Ao you want output routed to 
printer?"; 

365 POKE 764,255 

378 IF PEEK(764)=255 THEN 378 

375 IF PEEK(764)=43 THEN ? » Yes":I0=3 

388 IF PEEK(764) 043 ANA PEEK(764) 035 
THEN GOTO 365 

385 REM *** TRY TO OPEN THE PRINTER 

398 TRAP 488:IF PEEK (764)=35 THEN ? " 

No":? :GOTQ 416 

395 OPEN M3,8,0,"P;";G0TO 416 

408 ? :? "PRINTER AOES NOT RE5P0NA":? 

:? "PLEASE CHECK PRINTER ANA";? "HIT A 

NY KEY TO CONTINUE ":POKE 764,255 

485 IF PEEK(764)=255 THEN 485 

418 CLOSE M3:GOTO 390 

415 REM *** MAIN PROGRAM LOOP 

416 POKE 764,255:IF 10=3 THEN PRINT MI 
0;"FILE Ml ";FILE1$:PRINT MIO;"FILE M2 

";FILE2$:? MIO:? MIO 
428 LINE=8:TRAP 1888 
425 INPUT M1;LINE1$ 

438 LINE1=UAL(LINE1$ (1,5)) 

440 INPUT M2;LINE2$ 

458 LINE2=UAL(LINE2$(1,5)) 

468 IF LINEDLINE2 THEN ? MIO:? MIO;"F 
ILE M2 ONLY; ";LINE2$:G0T0 448 
478 IF LIN£1=LINE2 THEN 588 
488 ? MIO:? MIO;"FILE Ml ONLY: ";LINE1 
$ 


SMARTSHEET 

SMARTSHEET is a spreadsheet calculator which is extremely 
handy for financial forecasting, budgeting or any calculations involving 
many variables. NOTE: Due to its need for two buffers, Smartsheet will 
only work on a 32K cassette or 48K disk system as a minimum. The 
on-screen worksheet is divided into cells or grid co-ordinates, arranged 
15 columns across (A-O) and 40 rows down. Examples are: A1, 015, F32, 
etc. Due to the cell format (total of 600 cells) it is only possible to display 
a portion of the worksheet on the screen, so in order to view different 
areas of the worksheet, the screen acts as a scrolling window over the 
worksheet. 

OPERATION: Those already familiar with spreadsheets (e.g. 
VISICALC, SYNCALC), should feel at home since Smartsheet is basically 
styled after VISICALC. To newcomers, I hope the following will be enough 
to get you started. 

When Smartsheet is run, the screen is divided into two sections. 
The upper blue screen is the input window, which displays different 
menus, input prompts, error messages and the current cell co-ordinate. 
Below, is the grey worksheet screen, the window to the rest of the sheet. 
The black inverse bar is the cursor and is controlled by the normal cursor 
control keys. Its initial position is cell, A1. Smartsheet recognises three 
cell types: Labels, Values and Formulas. 

Since Smartsheet only involves itself with number calculations, 
labels are for the users' benefit, similar to REM's in BASIC. They are 
usually placed in the column left of a value, to identify it. E.g., SALES, 
COST, PROFIT, etc. Labels are exactly like the list of items on a shopping 
list. To enter a label, position the cursor and type in the label, if the label 
is too long, the cursor will automatically be forwarded to the next column. 

Values are numbers you input for the worksheet calculations to 
function properly. Values may take any form — positive, negative, 
decimal, etc. The use of values are similar to the prices next to items 
on a shopping list. Values are inputed by typing numbers directly into 
the cell. When the cursor is moved away, the value is moved to the right 
to allign the decimal places. By pressing OPTION, formulas can by 
inputed into the current cell or answers to simple equations can be found. 

NOTE: Values are necessary in a worksheet for formulas to function 
at all. Smartsheet gathers its input from cells nominated within a formula 
and displays the result after all calculations are complete. After pressing 
OPTION, “Formula” appears on the status line and on the input line you 
are asked whether the first number in the formula is to be a cell location 
or a number. 

The power of formulas in Smartsheet, is its ability to access values 
from other cells; i.e., formula may calculate a PROFIT figure, and therefore 
will access the values you inputed for SALES and COST and subtract 
them. Next the desired operation has to be inputed — addition, 
subtraction, multiplication, division or exponent (power of). Smartsheet 
is limited to one operation per formula. After entering the 2nd number 
as a cell or number the full equation will be seen on the sheet. If no cells 
have been accessed, the formulas will remain until they are calculated 
after pressing START. 

A subset of the formula, is the SUM function, which is accessed 
by typing a colon (:). The SUM function allows you to total values 
between one cell and another in a particular row or column. After typing 
a colon, the input line asks “FROM CELL:?”, here you should enter the 
cell where the totalling will begin, e.g. A1. Your input will be registered 
in the brackets in the status line. Input the cell, where the totalling will 
end, when “TO CELL:?” appears, e.g. A9. The input line will be cleared, 
and when you move the cursor off the formula cell, your From and To 
cells will be shown, e.g. :A1:A9. 

Once you have finished structuring your worksheet, complete with 
labels, values and formulas, press START to calculate the worksheet. 
The message 'Calculating...' will appear while Smartsheet is computing 
answers. Calculating time depends on the number of formulas within 
the worksheet. When Smartsheet has finished, the screen will 
temporarily clear and the final worksheet will be seen with all formulas 
replaced with the results. 

Smartsheet also has an optional menu for aid while developing a 
worksheet. The menu is accessed by pressing SELECT. The menu 'G L 
E S P H' will appear on the status line. Press the corresponding key to 
obtain these functions: Global Format: Selects how values are to be 
formatted when inputed. Choose from Dollar, Normal and Integer 
formatting. Dollar will automatically change your inputed value to dollar 
and cent format. Normal will leave your value untouched, while Integer 
will round your input to the next whole number. 

Load Worksheet: Loads a previously saved worksheet from a disk 
or cassette. Press D or C to select Disk or Cassette respectively. If using 
cassette follow the same procedure as loading BASIC programs. If using 
disk, you may either press the bar to cycle through the Smartsheet 
workfiles on your disk and press RETURN to load the file displayed in 
the input window. Or you may input a filename directly on the input line 
and press RETURN to load it. 


Save Worksheet: Saves current worksheet in memory to either disk 
or cassette. Press D or C to select Disk or Cassette to save on 
respectively. NOTE: Smartsheet saves the whole sheet, so cassette 
owners make sure you have about 50 counter spaces on the cassette 
and be prepared to wait during saving and loading times! Disk owners 
have two choices (same procedure as Load function): Press the space 
bar to cycle through the Smartsheet files on your disk and press RETURN 
to update or save over the file displayed in the input window or input 
a filename (8 letter limit) directly on the input line and press RETURN 
to save it. NOTE: Smartsheet uses '.SS' as an extender on its saved 
worksheets to identify them. 

Erase Worksheet: Clears the current worksheet from memory. The 
program will re-ask whether you wish to erase the current worksheet 
in memory. Type Y to erase, or any other key to return to the worksheet. 
If you type Y then the screen will temporarily clear and a clean worksheet 
will appear. 

Print Worksheet: Prints the current worksheet to a printer. Make 
sure your printer is ON LINEN First you will be asked to input the cell 
at the lower right corner of your worksheet (in order to define the bottom 
and rightmost column). After entering the cell co-ordinate, you may 
imbed printer control codes at the beginning of each row in the 
worksheet. Type Y to imbed control codes e.g., double width for headings. 
If you elect not to use printer codes, press RETURN to begin printing. 
If you type Y for printer codes input the row number to imbed the code. 
NOTE: The program will send control code before printing the row. Next, 
type the code in and follow the same procedure to input more codes. 
When you have finished press RETURN to print the worksheet. 

Home Cursor: Returns the cursor to cell A1. When you are moving 
around the far extremes of the worksheet it is handy to use this function 
instead of repeatedly using the cursor keys. 

Help Screen: Calling up this screen lists all the main keys and 
functions of Smartsheet. That about wraps up the features of 
Smartsheet. If you prefer to have the cursor move without having to use 
the CONTROL and arrow keys simultaneously, just change the value 
equal to K in the lines 65,70,75 and 80 to 61,45,43 and 42 respectively. 

EXAMPLE WORKSHEET: An actual example is better to explain the 
basics behind a worksheet or 'template', ala the two sample screens. 
Screen 1 shows a template in its raw state with all formulas being 
uncalculated. All headings and item names are example of labels. NOTE: 
Any character including numbers may be made into a label by typing 
an apostrophe before entering the label, .e.g. the line of minus signs 
beneath the heading. The price of the items are all values and have been 
Dollar formatted. The formatting has been changed to 'Normal' mid-way 
in creation to prevent quantity values to be in dollar and cent format. 
In the D column, formulas are present. In cell D6, the value of cell B6 
(price of chicken) will be multiplied by cell C6 (quantity of chicken). The 
result of this formula will be shown after calculation. The same applies 
to cell D18, where the item total (D15) is subtracted from the available 
cash (D3). Cell D15 (item total) is using the SUM function. Upon 
calculation, Smartsheet will add all values from cell D6 to D13. NOTE: 
Smartsheet calculates all formulas and sums from left to right, top to 
bottom on the worksheet.hen START is pressed, Smartsheet will pause 
to calculate and the result will appear as in Screen 2, where all formulas 
in the D column have been solved and replaced by a number. From here 
the user may experiment with different cash, price or quantity values 
to view the final outcome on Mrs Jones' purse. As can be seen in Screen 
2, Mrs Jones will have trouble paying the bill with only thirty dollars. 


490 INPUT ltl;LIN£l$:LINEl=VAL(LIN£l$ (1 
,5)):GOTO 460 

495 REM #«# HE HAVE A MATCH! 

508 IF LIN£1$=LINE2$ THEM 425 
510 ? #10:? #10;"FILE #1: ";LIHEi$ 

520 ? #I0;"FILE #2: “;LINE2$ 

530 GOTO 420 
1000 REM K*N 

1010 IF PEEK (195)=136 THEN ? :? "END 0 
F FILE REACHED":END 

1020 ? "ERROR "{PEEK(195);" STOPPED EK 
ECUTION " 


13 



STARWARS 

STARWARS (Parker Brothers) is the translation of the famous 
Starwars arcade game put into cartridge for the Atari 8-bit computers. 
The object of the game is to destroy the Imperial Fighters, the maze of 
laser towers, and destroy the Death Star by flying down the trenches 
of the Death Star and dropping your cargo of anti-matter disrupter into 
the exhaust port. That's what I call what you are firing, for a lack of 
calling it anything else. They are actually Proton Torpedoes. 

The game is played with the joystick as you might imagine, being 
an x-wing pilot, and the fire button is used to blast the Imperial Fighters, 
Towers, and Thermal Exhaust Port. I've noticed the controls are very 
similar to the arcade version! 

Any time you want to freeze the action you only have to press (I 
didn't say Hit) the Space Bar. This allows you to take pictures of the 
screen to show your friends the ultimate high score. 

There are 3 waves of difficulty which one has to deal with the 
destroy the Death Star: 

1. Approaching the Imperial Fleet: You must destroy the Tie-Fighters. 
Sounds simple? Well, think again. These nasty little guys hurtle fireballs 
at you as they pass. The fireballs disrupt one shield per hit. You only have 
9 energy shields to begin with! When successful you will be ported to 
the next wave, as with all the waves. 

2. Surface of the Death Star: In this wave you maneuver your craft 
through a series of Laser Towers. The Towers shoot fireballs back at you, 
so be careful. You are to shoot the tops of the Towers to go on to the 
next wave. Sound simple? (tee hee) By the way, when you hit a tower 
with your ship you lose an energy shield. 

3. Death Star Equatorial Trench (DSET): Once you are in the DSET 
be prepared to fly by the seat of your pants. Again as with the other 
waves there are the fireballs to put up with. You even get the chance 
to fly under or over suspended catwalks. Don't touch them with your 
craft or you will lose another shield. I've found it easier to blast the 
fireballs the instant they appear on the screen. Then all you have to do 
is fly between the catwalks. 

When you have flown past the catwalks keep an eye on the trench 
floor for the Thermal Exhaust Port. Blast away to send your proton into 
the Death Star. Then off you go to watch the explosion, at which time 
you have saved the Rebel Base. 

The game ends when you run out of shields then are hit by a fireball, 
run into a tower, or run into a catwalk. You get points along the way to 
save the Rebels by destroying the following: Tie Fighters — 1000 points; 
Fireballs - 33 points; Laser Towers - 200 point each (bonus of 50,000 
points if all are destroyed); Death Star - 5000 points (bonus award of 
3 energy shields). 

Depending upon which wave you are in you will earn bonus points 
using the Force: Wave 1 - 5,000; Wave 2 — 10,000; Wave 3 — 15,000; 
Wave 4 - 25,000; Wave 5 - 50,000; Wave 6 - 100,000. 

Upon playing the game I find myself wondering why I spent all those 
quarters in the arcade! The graphic ability of the Atari really shines in 
this program. My compliments to the game designer, the graphic screens 
in this game are very similar to those in the arcade. Well, very close for 
an 8-bit machine. There is also something worth mentioning. It has a 
180 day warranty. Now that is something you don't see every day! I 
suggest this one be purchased and added to your collection. 

— Stephen E. Warn 

VP RAMBLINGS 

The newsletter of late has not been the best that we can do. This 
has mainley been due to the fact that I have not coordinated my part 
of the putting together of the newsletter with the other editors. Anyway 
this policy is now changed and we will try to bring you the newsletter 
of old where everything in the issue was for that issue and nothing was 
left out. I hope that by these actions we will be able to bring you a better 
newsletter and one which all members can be proud of. 

As you have seen in the stores and newsprint the price of computers 
is coming down and this means programs etc. are doing the same. From 
the rumors that are going around the price should fall even further so 
everyone who wants one can own a computer. This is good news for 
all of you who have been putting off buying some of that equipment you 
wanted. The way things are going you will soon be able to afford it. This 
should make things more enjoyable. 

Keep your eyes on the printer market as they are not only coming 
down in price but they are getting better then ever. The quality of print 
is getting better, speed too. The noise level is lower along with the price 
so that, like computers, you can get great printers and very low prices 
especially compared to a few years ago. 
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More people of late have told me about buying a computer. They 
have talked about the ST and all that it can do and what they can do 
with it. After all that was said and done I asked them one question, "what 
do you want to do with the computer?" They thought about this and 
after they told me what they wanted it turned out all they need was a 
good old eight (8) bit machine. In fact the 130XE more than filled the 
bill and can do everything they wanted and more. So there is still a place 
for this machine and more software to operate it. The small machine 
is not dead, but very much alive and giving very useful service. 

— Larry Gold 

TOKENS 

(Atari Tokenized BASIC Files, reprinted from October, 1985 R.A.G. BAG) 
There is a pattern to the header seen on the first sector of a SAVEd 
Atari BASIC file. The first 14 bytes ($0D) are pointers to the various tables 
which BASIC uses to store variable names, values and the statements 
which make up our programs. Take a look at the sector dump below of 
the first sector of a BASIC program. 

SECTOR 620 ($26C) FP. 621 F#13 


00 

00 

00 

00 

01 

2A 

01 2B 01 ....*. + . Header 

08 

A3 

01 

B9 

OD 

CF 

OD 46 4E #.9.0.FN 

10 

A4 

46 

57 

A4 

D8 

C2 4F 46 $FW$XBOF Var Name 

18 

46 

53 

45 

D4 

CB 

43 54 52 FSETKCTR 

20 

CC 

D9 

DA 44 53 44 4C 4C LYZDSDLL 

28 

CF 

44 

53 

44 

4C 

48 C9 44 ODSDLHID 

30 

53 

44 

CC 

44 

4C 

CC CC CA SDLDLLLJ 

38 

00 

80 

00 

00 

00 

00 00 00 . Var Value Table 

40 

00 

80 

01 

00 

00 

00 00 00 . 

48 

00 

00 

02 

00 

00 

00 00 00 . 

50 

00 

80 

03 

00 

00 

00 00 00 . 

58 

00 

80 

04 

00 

00 

00 00 00 . 

60 

00 

00 

05 

00 

00 

00 00 00 . 

68 

00 

80 

06 

00 

00 

00 00 00 . 

70 

00 

80 

07 

00 

00 

00 00 00 . 

78 

00 

00 

08 

00 

00 

36 6D 7D .6m. 


The first two lines can be decoded by using the following diagram: 

00 00 VN TB EV NT DV VT 

DS TB DS DL DE ND vn vn 

The first pair of bytes ($00,01) is the pointer to LOMEM which is 
stored at $80,81 (129,130 dec). It is loaded in from $2E7,2E8 (743,744 
dec). Again, these bytes are stored in lo-byte format, that is, the low 
half of the number is first and the high half is last. These first two bytes 
are always "00 00". 

The second pair, labeled "VN TB" (bytes $02,03) is the pointer 
(actually tells the distance of the Variable Name Table from the start of 
RAM) +2567. These 256 bytes are a temporary storage buffer during 
tokenization of a statement just after you hit the RETURN key. The value 
is normally "00 01". I say normally because you can alter the value of 
VN, the third byte of the sector (& first byte of each additional header 
byte pair by the same amount), and effectively protect your program 
being listed. In our example "00 01" means the Variable Name Table 
starts at the $0E (14 dec)th byte of the sector. The variable name is FN $ 
and is "46 4E A4" in ATASCII. The variable names are written with the 
last character inverted. Dextral character inverted (DCI) means the high 
bit of the binary number used for the ending character is turned on 
making it inverse video. This in reality just adds $80 (1000 0000 in 
binary), and in this way BASIC knows when it reaches the end of the 
variable name. 

Next comes the pointer to the end of the Variable Name Table + 
256 (bytes $04,05 and shown as EV NT). 

Bytes $06,07 (shown as DV VT) gives the distance from the start 
of the variable name table to the start of the Variable Value Table +256. 
Just count the number of bytes from the start of the variable name table 
to the start of the variable value table and add 256 (that's a hi-byte 01) 
and you've got the number. 

In the second line of the sector dump, the bytes labeled "DS TB" 
(sector byte $08,09) point to the start of the Statement Table. Following 
these bytes is the offset to the end of the Statement Table (bytes $0A,0B 
shown as DS DL). This is the end of your BASIC program. These bytes 
point to the last byte of the last line of the actual program. 

But there's more. Remember when you SAVEd your program? The 
line you typed in with the program name is also there in your BASIC file. 
It's what I call the Default Save Last Line (DS DL). It starts at the byte 
following the end of the statement table (bytes $0A,0B) and ends with 
the address pointed to by bytes $0C,0D (labeled DE ND). 

Look over the sector dumps included and see if you can find all the 
parts we've mentioned. 












Var Value Table 


SECTOR 621 ($26D) FP. 622 F#13 

00 00 00 00 00 00 09 00 00 . Var Value Table 

08 00 00 00 00 00 OA 00 00 . 

10 00 00 00 00 00 OB 00 00 . 

18 00 00 00 00 00 OC 00 00 . 

20 00 00 00 00 00 OD 00 00 . 

28 00 00 00 00 00 OE 00 00 . 

30 00 00 00 00 OA 00 24 24 .$$ Statement Table 

38 00 41 54 41 52 49 20 42 .ATARI B 
40 41 53 49 43 20 46 49 4C ASIC FIL 
48 45 20 52 45 43 4F 56 45 3 RECOVE 
50 52 59 2D 44 49 53 4B 9B RY-DISK. 

58 14 00 13 13 00 62 79 20 .by 

60 42 69 6C 6C 20 50 65 74 Bill Pet 

68 72 79 9B IE 00 11 11 00 ry. 

70 31 37 20 44 65 63 20 31 17 Dec 1 
78 39 38 34 9B 28 36 6E 7D 984.(6n. 

The ending sector of the program is #646, with the last byte 
designating the number of data bytes in use. For us that's $2B (43 dec). 
SECTOR 646 ($286) FP. 0 F#13 
00 00 00 IB IB 36 87 2D 03 .... 6 .-. 

08 41 02 08 00 00 00 16 E8 A.h 

10 03 06 06 24 16 00 80 16 ...$.... 

18 16 19 OF OE 44 3A 52 45 ,...D:RE 
20 43 4F 56 45 52 44 2E 42 COVERD.B 
28 41 53 16 44 4C 48 C9 44 AS DLHID 
30 53 44 CC 44 4C CC CC CA SDLDLLLJ 

38 00 80 00 00 00 00 00 00 . 

40 00 00 01 00 00 00 00 00 . 

48 00 00 02 00 00 00 00 00 . 

38 00 00 30 00 00 00 00 00 . 

38 00 00 04 00 00 00 00 00 . 

38 00 00 05 00 00 00 00 00 . 

38 00 00 06 00 00 00 00 00 . 

38 00 00 07 00 00 00 00 00 . 

38 00 00 08 00 00 34 00 2B .4.+ 

Tokens are an intermediate short-hand form of storing your BASIC 
statements. Each time you type in a line in BASIC and press RETURN, 
the line (presently in the line buffer) is tokenized and then stored in 
memory. When you RUN the program the tokens are quickly interpreted 
and translated to machine language and so goes the program. Two books 
are available: "De Re Atari" and "The Atari BASIC Sourcebook". 

What follows is a list of tokens used in Atari BASIC (Atari Microsoft 
uses different token values): 

Atari BASIC Fixed Tokens 

Statement Operator Function 

$ # $ # $ # 
00 0 REM OE 14 (NUM CONST) 3D 61 STR$ 

01 1 DATA OF 15 (STR CONST) 3E 62 CHR$ 

02 2 INPUT 10 16 DOUBLE QUOTE 3F 63 USR 
03 3 COLOR 11 17 (DUMMY) 40 64 ASC 

04 4 LIST 12 18 , 41 65 VAL 

05 5 ENTER 13 19 $ 42 66 LEN 

06 6 LET 14 20 :(STMT END) 43 67 ADR 

07 7 IF 15 21 ; 44 68 ATN 

08 8 FOR 16 22 CAR RTN 45 69 COS 

09 9 NEXT 17 23 GOTO 46 70 PEEK 

OA 10 GOTO 18 24 GOSUB 47 71 SIN 

OB 11 GO TO 19 25 TO 48 72 RND 

OC 12 GOSUB 1A 26 STEP 49 73 FRE 

OD 13 TRAP IB 27 THEN 4A 74 EXP 

OE 14 BYE 1C 28 # 4B 75 LOG 

OF 15 CONT ID 29 (- (NUM) 4C 76 CLOG 

10 16 COM IE 30 () 4D 77 SQR 

11 17 CLOSE IF 31 )= 4E 78 SGN 

12 18 CLR 20 32 ( 4F 79 ABS 

13 19 DEG 21 33 ) 50 80 INT 

14 20 DIM 22 34 = 51 81 PADDLE 

15 21 END 23 35 ± 53 82 STICK 

16 22 NEW 24 36 * 54 83 PTRIG 

17 23 OPEN 25 37 + 55 84 STRIG 

18 24 LOAD 26 38 - 

19 25 SAVE 27 39 / 

1A 26 STATUS 28 40 NOT 

IB 27 NOTE 29 41 OR 

1C 28 POINT 2A 42 AND 

ID 29 XIO 2B 43 ( 

IE 30 ON 2C 44 ) 

IF 31 POKE 2D 45 = (ARITH) 

20 32 PRINT 2E 46 = (STRING) 

21 33 RAD 2F 47 (= (STRINGS) 

22 34 READ 30 48 0 

23 35 RESTORE 31 49 ) = 

24 36 RETURN 32 50 ( 


25 37 RUN 

33 51 ) 

26 38 STOP 

34 52 = 

27 39 POP 

35 53 + (UNARY PLUS) 

28 40 ? 

36 54 - (UNARY MINUS) 

29 41 GET 

37 55 ( (STRING LEFT PAREN) 

2A 42 PUT 

38 56 ( (ARRAY LEFT PAREN) 

2B 43 GRAPHICS 

39 57 ( (DIM LEFT PAREN) 

2C 44 PLOT 

3A 58 ( (FUNCTION LEFT PAREN) 

2D 45 POSITION 

3B 59 ( (DIM STR LEFT PAREN) 

2E 46 DOS 

3C 60 , (ARRAY COMMA) 

2F 47 DRAWTO 


30 48 SETCOLOR 


31 49 LOCATE 


32 50 SOUND 


33 51 LPRINT 


34 52 CSAVE 


35 53 CLOAD 


36 54 (IMPLIED LET) 


37 55 ERROR (SYNTAX) 


Each variable name you use in your program is also tokenized by 


a number starting with $80+ (dec 128 + ) and referred to by the variable 
number (in sequence that you named them), rather than by their actual 
name. A short program to list out these tokens is given in the Atari BASIC 
sourcebook. 

BASIC File Recovery 

Protecting BASIC programs has been done for several years. In the 
Fall, 1983 issue of Atari Connection, p. 60, is given a simple way of 
protecting BASIC programs. I tried it and, indeed, it did work. In that 
article it is stated that once you protect your program it was irrecoverable. 
Irrecoverable is not impossible (at least not in the same way a formatted 
disk is). It took a couple of days. We'll use what I learned about the 
Default Save Last Line to demonstrate line structure and token use. 
Resetting Current Line Pointer 

32767 POKE 

PEEK(138) + 256*PEEK(139) + 2,0:SAVE"D:FILENAME":NEW 
In tokens it looks like this: 

FF 7F 45 33 IF 46 3A OE 41 01 38 0000 00 2C 25 03 41 02 56 00 
00 00 24 46 3A OE 41 01 39 00 00 00 2C 25 OE 40 02 00 00 00 00 
12 OE 00 00 00 00 00 00 14 42 19 OF OA 44 3A 46 49 4C 45 4E 41 
4D 45 14 45 16 16 

This statement resets the line pointer for the current line. Recovery 
is by locating "DS DL" (bytes $0A,0B) and finding the address of the 
start of the Default Save line ($8000, 32767 dec). Using byte $0E as 
the starting address, count forward (MSB-1)*256 + LSB. This corrects 
for the buffer offset of the "DS DL" value. On reaching this, type in the 
SAVE line in accordance with the following example: 

Default Last Line at End of BASIC program 
Line Tokens 

00 80_19 OF 08 44 3A-OE--16 

Line Byte Number 

01 23456789ABCDEF10 11 12 13 14 15 
Bytes #2,3 are the line length and statement offset. If you use an 
eight letter filename plus a three letter extender you will end up with 
a line length of $15 bytes. Enter your line length in both 2 and 3. 

Once the default last line has been added at the proper location, 
add the line length (in hex) to the "DS DL" and place the new address 
(be sure it includes the MSB + 1 buffer offset) in "DE ND" ($C & D) of 
the BASIC program file header. This will enable you to list the BASIC 
program, providing the Variable Name Table is in order. If it has been 
replaced with single characters, like below, then edit by using normal 
CAPITAL letters (the hexadecimal ATASCII equivalence, of course), ended 
with an inverse capital letter or number. By the way, if you replace all 
the variable names with lowercase letters you will be able to list the 
program. However, when you attempt to list any line separately you'll 
end up with a mess. Give it a try and you'll see. 

Replaciing Variable Name Table with Single Character 
32766 FOR Q = PEEK(130) + 256*PEEK(131) TO 
PEEK(132) + 256*PEEK(133):POKE Q,155:NEXT Q 

Peeking prior to cleaning up the program will lock up the system, 
which precludes fixing the pointers and variable names that way. If all 
this seems like a lot of work, it is. However, I have summarized the 
cleaning-up process in a simple GET/PUT Basic program. This program, 
RECOVERD.BAS, has been on the RAG BBS (707-539-8889) for 
downloading. 

A much better way to protect your BASIC programs, besides altering 
tables, is to compile them to machine code. This can be easily done with 
a BASIC compiler. MMG is a good one. What you end up with is a binary 
load file which can give you that "Assembly Language" programming 
ability without even the slightest knowledge of 6502 machine language. 

- Bill Petry 
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Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user group with no connection to Atari Corp. We are a group 
interested in educating members in the use of Atari computers and 
publishing the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our 
members. 

Our membership is world wide. Membership fees include the A.C.E. 
newsletter (10 issues per year) and high access in the A.C.E. Bulletin 
Board System. Dues are $14 a year for U.S., and $24 a year overseas 
airmail. 

Subscription Dept.: 3662 Vine Maple Dr., Eugene, OR 97405 

President — Dick Barkley, 2907 Wingate, Eugene, OR 97405 

(503) 344-5843 

Vice President — Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 

(503) 686-2490 

8-Bit Librarian — Chuck & Jody Ross, 2222 Ironwood, Eugene 97401 

(503) 343-5545 

ST Librarian — Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 

(503) 484-4746 

Editors — Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 

(503) 344-6193 

Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 

(503) 484-4746 

Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 

(503) 686-1490 

E.R.A.C.E (Education SIG Editor) — Nora Young, 105 Hansen Lane 
Eugene, OR 97404 / (503) 688-1458 
Send 50c stamps or coin ($1 overseas) to the Librarian for updated 
ACE Library lists. 

A.C.E. Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of a 130 XE upgraded to 576k by Charlie Andrews, 2 double-density 
ramdisks, 2 double-density disk drives, and a 10-meg hard disk from 
Supra Corp, an Epson MX80 printer, a 2400 US Robotics Courier modem, 
running the Mindlink Bulletin Board software (modified). 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the 
first issue, Oct. 1981 to June, 1982. 

Volume 2 contains July 1982 through June 1983. 

Only $12 each ($2 extra for airmail). Available only from George 
Suetsugu, 45-602 Apuapu St., Kanoehe, HI 96744. 
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TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you. have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line” 
And it's easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


_ SortFinder Index 

SortFinder Index 

A composite index of Atari related articles in four popular computer 
periodicals, including the ACE Newsletter. Volume 1 covers; April, 1981 
through Juhe ' 1983 * Volume 2 covers July, 1983 through December 
1985. Only $6 per printed copy or $11 per disk copy for ACE members! 
Available from: Jim Carr, 2660 S.W. DeArmond, Corvallis, OR 97333. 
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